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INTRODUCCION 


1 lenguaje de BASIC fue desarrollado en los años se- 

senta, en New Hampshire, Estados Unidos, por los pro- 
fesores John Kemeny y Thomas Kurt, para aprender de un 
modo sencillo su uso, así como una implementación muy 
económica. 

Estos dos profesores lo escribieron de tal modo, que 
muchos usuarios pudieran usar un solo Computador para 
fines de aprendizaje, siendo un lenguaje interactivo, es de- 
cir un lenguaje en el que el usuario obtenga una respuesta 
inmediata a lo que se introduce por el teclado de la 
Computadora. 


Desde su implementación, el lenguaje BASIC ha experi- 
mentado una gran evolución, hasta el punto de que ha lle- 
gado a ser el lenguaje estandar de las microcomputadoras, 
siendo su resultado de gran ayuda para los usuarios que no 
son principiantes, utilizándose, además de entretenimiento 
y enseñanza, para actividades comerciales y aplicaciones 
industriales. 


La BIBLIA DEL AMSTRAD es una obra destinada al BA- 
SIC del AMSTRAD, así como todo lo relacionado con este 
Computador, para facilitarle paso a paso el aprendizaje de 
este lenguaje y así poder desarrollar sus propios progra- 
mas convirtiéndose en un programador avanzado. 
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Como hemos mencionado anteriormente, una vez que 
Vd. termine de leerse esta obra, se sentirá más animado 
para sacar el mejor fruto a su Computador, dado que lo 
peor que le puede a uno pasar es tener este tipo de máqui- 
nas delante de uno y no saber qué hacer con ellas; por lo 
tanto, le recomendamos que siga paso a paso a todos los 
capítulos sin saltarse ninguno, pues de lo contrario no po- 
drá completar su educación en el campo de las Computa- 
doras. 


Esta obra consta de treinta y cinco Capítulos más tres 
Apéndices, donde Vd. podrá aprender el uso de su Compu- 
tador desarrollando los ejercicios que hay en muchos de 
los mismos, y comprobando su resultado con los que apa- 
recen en el Apéndice 1. 


Además de todo esto, hay un Apéndice con programas 
donde Vd. podrá introducirlos en su Computador, salván- 
dolo en cinta o disco, para su utilización y así poderlos mo- 
dificar para experimentar con el lenguaje de BASIC. 


Quiero expresar mi agradecimiento a la compañía HIS- 
PANOMICRO, S.A., por las facilidades que me han dado en 
desarrollar esta obra, así como en la comprobación de la 
misma. 


Cristian Longhi 
Autor 
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CAPITULO 1 


INTRODUCCION AL COMPUTADOR 


Ex el momento en que Vd. conecta su Computador 
AMSTRAD, tendrá que seguir unas reglas determinadas 
para poderle sacar un buen partido a su máquina. Estas re-. 
glas están permanentemente en el computador en dos pro- 
gramas, llamados, uno Monitor y el otro el Interpretador. 


Empezaremos en este Capítulo dialogando con el 
computador, enseñándole las etiquetas más fundamentales 
del mismo y creando su primer programa. 


Una vez conectada la máquina a la red y procediendo a 
encenderla, después de unos segundos de calentamiento 
del tubo del monitor (Color o Fósforo Verde), aparecerá en 
la parte superior de la pantalla, el siguiente mensaje: 


Amstrad 64E Microcomputer (Vi) 
23 1984 Amstrad Consumer Electronics plc 
and Locomotive Software Ltd 


BASIC 1.0 


Ready 
il 
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Si se presiona la tecla de ENTER, aparecerá otra vez en 
los renglones siguientes. 


(cursor) 


Para estar seguro de empezar con una memoria limpia, 
tendrá que teclear la palabra NEW y luego dar a la tecla 
ENTER, y el computador le responderá en el renglón si- 
guiente con: 


Ready 
id 


Si desea limpiar totalmente la pantalla, deberá teclear 


la palabra CLS y luego dar a la tecla ENTER, apareciendo 
en la parte superior de la pantalla: 


Ready 
15] 


Otro de los pasos de gran utilidad, es el inspeccionar el 
estado de la memoria (ver qué cantidad de memoria se ha 
usado), para esto habrá que teclear la palabra PRINT 
MEM y luego dar a la tecla ENTER. 


Ready 

1] 

PRINT MEM 

o (si no se ha usado la memoria) 


Ready . 
Mi 


¿QUE ES UN PROGRAMA DE COMPUTADORA? 


Un programa es una secuencia de instrucciones que el 
computador almacena hasta que se le da la orden de ejecu- 
tarlo. Muchos de los programas que se usan en el Compu- 
tador AMSTRAD están escritos en el lenguaje BASIC, con 
lo cual este libro enfocará los diversos comandos de este 
tipo de lenguaje. 


Empezaremos escribiendo un programa de una sola lí- 
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nea para que su computador se presente. Primero nos ase- 
guraremos de que su memoria está limpia, tecleando la pa- 
labra NEW y luego dar a la tecla ENTER para que aparez- 
ca la palabra Ready. 


A continuación teclee la siguiente línea: 
10 FRINT "Buenas .. soy su Computador AMSTRAD! !" 


No de a la tecla ENTER por ahora. 


Todos los comandos los podrá escribir en minúsculas si 
lo desea, como en este caso print. Si se desea usar letras 
mayúsculas en el texto, habrá que oprimir la tecla SHIFT, 
aunque Vd. podrá comprobar en su teclado que hay teclas 
con doble tipo de caracteres, así que también deberá pre- 
sionar la tecla SHIFT si tiene que usar los caracteres mar- 
cados en la parte superior de la misma. 


Si al teclear cometiese algún error, no se preocupe, 
dado que usando la tecla DEL corregirá la equivocación, 
cosa más sencilla que cuando se usa una máquina de escri- 
bir. Para más información en el manejo de esta tecla de bo- 
rrado, ver el manual de su AMSTRAD. 


Ahora volveremos a examinar detalladamente lo que 
Vd. ha escrito en su computador. 


1.— ¿Ha puesto entre comillas la frase que va después 
de PRINT?. 


2.— ¿Hay comillas de más en la frase escrita? 


Si todo está bien podrá pulsar la tecla ENTER y apare- 
cerá el cuadradito del cursor. Si por casualidad hay un 
error en la línea después de haber pulsado la tecla EN- 
TER, la tecla DEL no tendrá ningún efecto, debiendo en- 
trar otra vez en la línea completa que reemplazará a la an- 
terior una vez p la tecla ENTER. Esto es debido a que am- 
bas comparten el mismo número de línea (en este caso el 
10) y la última línea entrada es la válida para el computa- 
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dor. En otros Capítulos enseñaremos cómo editar una li- 
nea sin tener que teclearla completamente. 


En el segundo paso, vamos a ejecutar nuestro pequeño 
programa, y para eso usaremos un comando de Basic lla- 
mado RUN. Así pues, teclearemos: 


RUN 
y después ENTER 


Si no hay ninguna equivocación aparecerá en la panta- 


lla: 


Buenas ++. soy su Computador AMSTRAD! ! 
Ready 
mn 

En el caso de que no funcionase, teclee otra vez la pala- 
bra RUN, y si sigue sin funcionar, entre la palabra NEW, v 
otra vez la línea completa 10. 


Una vez que este pequeño programa funcione compro- 
bará que la palabra PRINT y las comillas no aparecen en 
la pantalla, dado que son parte de las instrucciones del pro- 
grama. 


Entre otra vez la palabra RUN y accione la tecla EN- 
TER y verá que se repite la misma respuesta en pantalla 
una y otra vez dado que este programa permanece en me- 
moria hasta que Vd. lo borra con el comando NEW o des- 
conectando el computador. La computadora es informada 
de ejecutar un programa o un comando cuando se acciona 
la tecla ENTER, por eso si introduce una línea o un co- 
mando, siempre deberá usar dicha tecla para que se ejecu- 
te. 
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CAPITULO 2 


DESARROLLANDO UN PROGRAMA 


E, este momento tenemos un programa en la memoria 
del computador (si Vd. ha desconectado el computador en- 
tre estos dos Capítulos, vuélvalo a conectar y teclee la línea 
10 de Capítulo 1). Este programa consta de una sola línea, 
pero lo vamos a ampliar añadiendo una segunda línea. 


En Basic cada línea del programa debe llevar un núme- 
ro y el programa se ejecuta en un orden ascendente, desde 
la línea con una numeración más baja, hasta la que tiene la 
numeración más alta. 


Nota: Cuando aparezca la palabra en la forma de 
ENTER a través de todo este libro, significa que debe 
pulsar la tecla ENTER. 


Entre la siguiente línea desde su teclado: 


20 PRINT "Desea Vd. mis servicios ...?"” 
ENTER 


Compruebe si todo está correcto, especialmente las co- 
millas, y prosiga con el siguiente paso. 
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RUN 
ENTER 


Si todo está correcto, aparecerá en la pantalla lo si- 
guiente: 


Buenas .. soy su Computador AMSTRAD! ! 
Desea VD. mis servicios ..? 

Ready 

hi 


Si Vd. responde a la pregunta con un: 


SI 
ENTER 


Le aparecerá en la pantalla un mensaje de error, como 
Syntax error. 


Deliberadamente le hemos forzado a crear un error, 
para poder demostrar la capacidad de detección de errores . 
de su Computador, el cual es lo suficientemente inteligente 
para indicarle cuándo Vd. ha cometido un error y la natu- 
raleza del mismo. 


En este caso, el Computador está esperando una nueva 
línea de programa o un comando de Basic, más adelante le 
demostraremos cómo haremos que acepte una respuesta 
de «Sl» o «NO». j 


Hay docenas de posibles errores que se pueden hacer, y 
más adelante le enseñaremos a crear un «CODIGO DE 
ERRORES», pero mientras tanto sólo tocaremos una situa- 
ción de error la cual la podremos reconocer dado que se 
refiere a error de transcripción. 


Volveremos a teclear la línea 20 para crear un error, así 
pues la pondremos de la siguiente forma: 


20 PRIMT "Desea Vd. mis servicios .. 7?" 


ENTER 
RUN 
ENTER 
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Otra vez obtendremos un mensaje de ERROR: 


Syntax Error in 
20 PRIMT "Desea Vd. mis servicios ..?7” 


Deberá pulsar la tecla ENTER y escribir de nuevo la lí- 
nea 20 como se indica al principio de este Capítulo. Más 
adelante le indicaremos otra forma de poder corregir esta 
línea antes de pulsar la tecla ENTER. 


Es por norma el espaciar la numeración de las líneas de 
10 en 10 para facilitar la inserción de otras líneas si es ne- 
cesario para el desarrollo del programa o la modificación 
del mismo, así pues introduciremos una línea entre la 10 y 
la 20 para ver lo que pasa: 


15 PRINT 
ENTER 
RUN 
ENTER 


En la pantalla deberá aparecer: 


Buenas .. soy su Computador AMSTRAD! ! 
Desea Vd. mis servicios ..? 


El resultado aparecerá con un espacio entre las dos lí- 
neas que hacen que el programa sea más legible. Cada co- 
mando PRINT que Vd. inserte, sin ningún mensaje, le dará 
un salto de línea en el resultado. 


Otra importante sentencia es REM, REMARK (ANOTA- 
CION), y significa que Vd. puede introducir en su progra- 
ma cualquier número de REM para facilitarle cualquier 
anotación en el mismo, como por ejemplo, el tipo de pro- 
grama, qué hace este programa, o cómo se ejecuta el pro- 
grama, es como tener un cuaderno de anotaciones dentro 
de su programa. 


Cuando le indica a su Computador que ejecute su pro- 
grama, donde se encuentran diferentes REM, éste saltará 
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las líneas donde se encuentren estas sentencias, dado que 
no tienen ningún efecto en su ejecución. 


Insertar la siguiente línea: 


5 REM k Este es mi primer programa X 
ENTER 

RUN 

ENTER 


La ejecución del programa dará un resultado como el 
anterior, dado que la línea 5 no afecta al mismo. 


Dado que el programa está tomando unas dimensiones 
aceptables, y para ver lo que llevamos escrito, podremos 
hacer uso de otro comando de Basic llamado LIST, así 
pues teclearemos: 


LIST 
ENTER 


Y obtendremos lo siguiente en la pantalla: 


5 REM *x Este es mi primer programa X*X 

10 PRINT "Buenas +. soy su Computador AMSTRAD!!!" 
15 PRINT 

20 PRINT "Desea Vd. mis servicios ..?” 

Ready 

(5d 


Vd. podrá acceder al comando LIST en cualquier mo- 
mento en que el cuadradillo del cursor aparezca a la iz- 
quierda de la pantalla. 


¿Como finalizar un programa? 


Para finalizar un programa bastará con la ejecución de 
la última línea del mismo, pero muchos Computadores re- 
quieren el uso de la sentencia END así el computador sabe 
que ha terminado, pero en su Computador AMSTRAD esta 
sentencia es opcional pudiéndola poner o dejando de po- 
nerla. 
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Analizando la sentencia END veremos, que por norma 
se la da un número de línea muy alto, por ejemplo 99 o 999 
o 9999, dependiendo del último número de línea de su pro- 
grama y limitado por la numeración que el computador po- 
drá aceptar, que en este caso es de 65529. Así pues introdu- 
ciremos la sentencia END en nuestro programa poniendo 
lo siguiente: 


99 END 
ENTER 
RUN 

ENTER 


El ejemplo una vez ejecutado saldrá en pantalla de la si- 
guiente forma: 


Ruenas .. soy su Computador AMSTRAD! ! 


Desea Vd. mis servicios ..7 
Ready 
1 


¿Por qué razón no ha aparecido en la pantalla la palabra 
END?, es muy sencillo, dado que sólo sale en pantalla el 
«Objeto» de la sentencia PRINT. 


Borrar una línea sin ser reemplazada 


Como ejercicio le mostraremos cómo eliminar una línea 
del programa sin ser reemplazada. Tomemos por ejemplo 
la línea 99 que queremos pasarla a la línea 65529, esto re- 
querirá dos pasos, primero eliminaremos la línea 99 escri- 
biendo lo siguiente: 


99 
ENTER 


En este momento la línea 99 ha sido borrada del progra- 
ma, y para estar seguros listaremos el mismo entrando: 


LIST 
ENTER 


En la pantalla sólo aparecerán las líneas 5, 10, 15 y 20, 
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así de esta manera también se podrá borrar cualquier lí- 
nea. El segundo paso será el insertar la nueva línea, por lo 
que introduciremos lo siguiente: 


653329 END 
ENTER 


Listaremos otra vez el programa con el comando LIST 
y veremos que ahora tenemos las líneas 5, 10, 15, 20 y 
65529. 
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CAPITULO 3 


EL EDITOR 


E Editor es de un valor extraordinario dentro del Basic 
y su misión es la de editar un programa. Es un comando fa- 
cilísimo de usar y a su vez muy útil a la hora de necesitarlo 
dado su gran potencia. El Editor se verá a través de este li- 
bro en varios capítulos, pero en éste les explicaremos sus 
diferentes funciones. 


Limpie la memoria y pantalla usando NEW y CLS para 
así no confundirse con lo que tenga en ella. 


El cursor es controlado con las cuatro teclas con flechas 
situadas a la derecha superior de su teclado con una tecla 
en el centra marcada con la palabra COPY. 


Para demostrar las diferentes funciones de corrección 
con el editor, entraremos una línea numérica con errores: 


10 FOR A = 100 TO 50 (El error está en el 100 que de- 
bería ser 10) 


Para corregir tenemos dos opciones: 


1.— Se puede pulsar la tecla ENTER y teclear toda la 
línea, la cual sustituirá a la anterior. 
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2.— Situar al cuadradillo con vídeo inverso encima del 
segundo cero de la cifra 100 y pulsar la tecla DEL para que 
quite ese cero lo que hará que el cuadradillo se mueva ha- 
cia la izquierda. Otra manera es el situar el cuadradillo en- 
cima de cualquiera de los dos ceros y pulsar la tecla CLR 
desapareciendo el carácter en que se encuentre dicho cua- 
dradillo. Pulsando la tecla ENTER, la línea corregida susti- 
tuirá a la que tiene el error quedando el programa corregi- 


do. 


Este método se usa cuando se ha citado una línea y se 
ha detectado el error antes de pulsar la tecla ENTER, o si 
al correr el programa le da un Syntax error con lo cual 
verá que el cuadradillo está situado encima del primer nú- 
mero de la línea. 


Si el Computador detecta un error y no te muestra la lí- 
nea completa con dicho error, sino que solamente te indica 
el número de línea, deberás listar dicha línea con el coman- 
do LIST n (donde n es el número de la línea). Una vez lista- 
da dicha línea y detectado el error, Vd. podráa corregirlo 
usando las teclas SHIFT y (1) para situar el cuadradillo en- 
cima del número de línea y luego con la tecla (-) situarlo 
encima del carácter a corregir. Una vez que se efectúe di- 
cha corrección, se pulsará la tecla ENTER para introducir 
dicha línea en memoria. 


Otra forma de hacer correcciones en un programa, es el 
usar la tecla COPY (copiar) en unión con lo anteriormente 
expuesto. Para esto deberá listar la parte del programa 
donde Vd. cree que está el error con el comando LIST 
n1-n2 (donde n1 es el número de línea más pequeño y n2 
es el número más grande del programa), y con las teclas 
SHIFT y (1) simultáneamente colocar el cuadradillo enci- 
ma del carácter a corregir borrándolo e introduciendo el 
correcto; efectuada esta corrección, pulsar la tecla ENTER 
para meter la línea en memoria. Otra ventaja de este proce- 
dimiento es el poder copiar líneas de texto completas cuan- 
do se necesita duplicidad de ellas, para esto el procedi- 
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miento es muy similar al anterior. primero listar la línea 
que queremos duplicar y luego usando las teclas de SHIFT 
y (1) simultáneamente y con la tecla (>) situar el cuadradi- 
llo encima del primera carácter, escribiremos el nuevo nú- 
mero de línea y con la tecla COPY copiaremos el texto en- 
tero. Una vez esté confeccionada la nueva línea pulsaremos 
la tecla ENTER para introducir en memoria dicha línea. 


Supongamos que tenemos un programa como el que se 
muestra a continuación: 


5 CELS 

10 FOR A = O TO 255 
20 PRINT CHR$(4);5 
30 NEXT A 


Puedes pasar a la forma de EDIT (Edición) tecleando: 
EDIT 20 


El Computador mostrará la línea 20 de la siguiente for- 
ma: 


20 PRINT CHR$(A); (con el cuadradillo encima del 2) 


A continuación Vd. puede usar las teclas del cursor con- 
juntamente con las de CLR y DEL tal como se ha indicado 
anteriormente para corregir, y una vez comprobada dicha 
línea pulsar la tecla ENTER. 


Si en el transcurso de la edición o corrección de erro- 
res, se complica la cosa y no sabe que hacer, con sólo pul- 
sar la tecla ESC se saldrá de esa rutina sin afectar nada a 
la línea o texto que se esté corrigiendo o editando. 
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CAPITULO 4 


NUMERACION AUTOMATICA DE LINEA (AUTO) 


E comando AUTO es uno de los más cómodos para 
editar en Basic dado que te numera las líneas y te da el es- 
pacio correspondiente entre el número y el texto. 


Para la práctica de este comando, empezaremos borran- 
do la memoria entrando NEW y si se quiere borrar la pan- 
talla con el CES. 


Desde el teclado entre la siguiente palabra: 
AUTO 
La pantalla le responderá con: 
10 E 
En la posición donde el cursor está, teclee lo siguiente: 
PRINT "Que estamos haciendo adaia 
ENTER 
En la pantalla aparecerá la siguiente línea: 
20 
Teclee lo siguiente donde está posicionado el cursor: 
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PRINT "Esto es ridiculo” 
ENTER 


Y aparecerá otra vez: 


Le] 


SH 


Todo esto se asemeja mucho al EDITOR, pero no lo es, 
sino que es un modo de numeración Automática de Líneas. 


Es evidente que en este punto estamos introduciendo 
números de líneas tantas veces como presionemos la tecla 
ENTER, y la única forma de salirse del comando AUTO es 
presionando la tecla ESC. 


Entre el comando LIST y verá que solamente le listará 
las líneas que contienen datos, que en este caso son las 10 y 
20. Borre la memoria tecleando la palabra NEW y entre lo 
siguiente: 


AUTO 1000,200 


Presione unas seis veces la tecla de ENTER y verá que 
en la primera línea aparecerá un 1000 y en la segunda 1200 
y así sucesivamente en incrementos de 200. Esto quiere de- 
cir que en el comando AUTO 1000,200; el 1000 indica el co- 
mienzo de la numeración de la primera línea, y el 200 el in- 
cremento entre líneas. Por ejemplo, si nosotros entramos 
AUTO 100,5 la primera línea empezará con la numeración 
100 e incrementará en 5. 


Otra de las indicaciones del comando AUTO es el que 
aparece un asterisco después del número de línea, por 
ejemplo 10*. Esto indica que en esa línea hay datos por lo 
que si pulsamos la tecla ENTER borraremos completa- 
mente la línea 10, así que si deseamos salvarla se deberá 
pulsar la tecla ESC para salirse del comando AUTO. 
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CAPITULO 5 


OPERADORES MATEMATICOS 


E, lenguaje de Basic usa las cuatro operaciones funda- 
mentales de matemáticas, más una quinta que es una modi- 
ficación de dos de las otras. 


1.— Suma, que usa el símbolo + 

2.— Resta, que usa el símbolo — 

3.— Multiplicación, que usa el símbolo * 

4.— División, que usa el símbolo / 

5.— Negación (que significa, multiplicar tanta veces menos 
una), y usa el símbolo — 


Hay que tener cuidado para no usar una x como símbo- 
lo de multiplicación, dado que solamente reconocen los 
Computadores el símbolo * para este tipo de función. 


Así pues empezaremos a practicar con las operaciones 
matemáticas, y para esto borraremos la memoria y la pan- 
talla con los comandos NEW y CLS, tecleando también el 
comando LIST con lo que dado que la memoria está lim- 
pia aparecerá en nuestra pantalla: 


Ready 
ll 
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Ahora usaremos el Computador para hacer algunos pro- 
blemas sencillos, usando ecuaciones, pero para que no se 
preocupe le diré que las ecuaciones son pequeñas senten- 
cias. Empezaremos con la clásica ecuación de distancia re- 
corrida es igual a velocidad hora por el tiempo utilizado en 
el viaje. 


Para reducir la ecuación usaremos letras llamadas va- 
riables que reemplazarán a las tres cantidades. Por ejemplo 
si la distancia la representamos con una D, la velocidad 
con una V, y el tiempo con una T, tendremos lo siguientes: 


40 D=V x T 


Vd. se preguntará qué hace el 40 aquí, pues es el núme- 
ro de líneas del programa dado que cada paso del progra- 
ma tiene que tener uno. La razón por la que ponemos el 
número 40, es dado que hay que dejar espacio libre y que 
la ecuación sea fácil de leer. Más adelante cuando Vd. es- 
criba programas más largos deseará eliminar espacios li- 
bres dado que ocupan espacio de memoria, pero por ahora 
lo dejaremos así. 


Para la designación de las variables, se pueden usar 
cualquiera de las 26 letras, de la A a la Z, pero siempre es 
aconsejable el usar letras que se identifiquen con lo que 
quieren representar, como en este caso D, V, y T para Dis- 
tancia, Velocidad, y Tiempo. 


Para complicar un poco este sencillo ejemplo, vamos a 
mencionar que.hay una forma opcional para escribir esta 
ecuación, usando la sentencia de Basic LET: 


40 LET D= Vx Tr 


El uso de LET nos recuerda que D es igual a la multipli- 
cación de V por T en vez de la forma tradicional de 1+1=2. 


Continuemos con nuestro programa asumiendo que: la 
distancia (en KM) es igual a la velocidad (en Km por hora) 
multiplicado por el tiempo (en horas). Así pues qué distan- 
cia hay desde Nueva York a Roma, si la velocidad media 
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del avión es de 500 km por hora y en el viaje se han em- 
pleado 12 horas? 


Escribiremos el siguiente programa: 


10 REM *k Problema de Distancia, Velocidad, y liempo K* ENTER 
20 V = 500 ENTER 

30 T= 412 ENTER 

40 D=VNKT ENTER 


Compruebe el programa despacio y ejecútelo con: 
RUN ENTER 


Veremos que la respuesta que nos da el Computador es 
de: 


Ready 
il 

No crea que su Computador no funciona, lo que pasa 
que ha efectuado la operación de multiplicación, pero no le 
hemos introducido ninguna instrucción para que nos dé el 
resultado. 


EJERCICIO 5-1 

Este ejercicio le pide a Vd. que termine este programa 
para que le dé la respuesta en pantalla de esta multiplica- 
ción. Esto le servirá de recordatorio y así empezará a ejer- 
citar sus dotes de programador. (Le daremos unas pistas, 
dado que en capítulos anteriores hemos usado la sentencia 
PRINT para reproducir en pantalla un mensaje, pues bien, 
¿si ponemos 50 PRINT “D””? ... veremos que lo único que 
conseguimos es el carácter D, así pues que pasará si qui- 
tamos las comillas a la D:). 


NO LEA MAS DE ESTE CAPITULO HASTA QUE CONSIGA 
SOLUCIONAR ESTE EJERCICIO. 


Muy bien,la respuesta de 6000 es correcta, pero la pre- 
sentación no es muy ortodoxa y se parece más a la de una 
calculadora, así pues volveremos a la sentencia PRINT 
para ver si lo podemos componer. 
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Vea que en la línea 50 hemos puesto 50 PRINT D sin 
comillas, la razón es muy sencilla, hemos querido imprimir 
sólo la variable D del programa. Así pues, como esta res- 
puesta aparece sin ninguna información, introduciremos 
una línea con una representación más amplia, usando tam- 
bién la sentencia PRINT: 


S0 PRINT "LA DISIANCIA EN KILOMETROS ES",D 
ENTER 
RUN 


El resultado en pantalla será: 


LA DISTANCIA EN KILOMETROS ES 
6000 


Este resultado es más profesional y comprobará que el 
mensaje que está entre las comillas, aparece en la pantalla, 
además de la cifra de la variable D. La coma que hemos 
puesto, hace que esta cifra se desplace a la siguiente línea, 
dado que la indicación de la coma es de proseguir en la si- 
guiente línea. 


Con este concepto en mente, veamos si podemos cam- 
biar la línea 50 para que el Computador dé un resultado 
como éste: 


LA DISTANCIA ES 6000 KILOMETROS 


Para que la pantalla nos dé este resultado, tendremos 
que dividir el mensaje en dos partes, introduciendo entre 
la variable el signo de punto y coma y así el computador 
sabrá que después del primer punto y coma hay una infor- 
mación y después de esta información continúa el mensaje 
dado que le hemos puesto otro punto y coma después de la 
variable. Así pues la línea 50 quedará de esta manera: 


50 PRINT "LA DISTANCIA ES"; Dz "EILOMETROS" 


Hasta ahora hemos cubierto los suficientes comandos, 
sentencias y Operaciones matemáticas como para resolver 
diferentes problemas, así pues empezaremos a ejercitar 
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con todo lo que sabemos resolviendo algunos ejercicios de 
programación. 


EJERCICIO 5-2 

Escriba un programa para calcular el tiempo que se ne- 
cesita para viajar en avión desde París a Los Angeles, don- 
de la distancia es de 6000 kilómetros y el avión tiene una 
velocidad de crucero de 500 kilómetros por Hora. 


EJERCICIO 5-3 

Si la circunferencia de un círculo se calcula multiplican- 
do su diámetro por PI (3,14), escriba un programa para cal- 
cular la circunferencia de un círculo donde su diámetro es 
de 35 Metros. 


EJERCICIO 5-4 

Si el área de un círculo se calcula multiplicando el valor 
de PI (3.14) por el radio de la circunferencia al cuadrado, 
escribir un programa para calcular el área de un círculo 
donde súu radio mide 5 metros. 


EJERCICIO 5-5 

Si en su cuenta corriente tiene un saldo de 22500 pese- 
tas, y VD. usa unos cheques por valor de 170, 350, y 2250, y 
hace dos depósitos de 400 y 20000, escriba un programa 
para actualizar su balance de la cuenta corriente. 
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CAPITULO 6 


ANOTACIONES CIENTIFICAS 


E, el mundo de las matemáticas, hay resultados y cifras 
muy grandes y muy pequeñas como en el orden de milési- 
mas y billones. Para poder trabajar con estas cifras, los 
Computadores usan lo llamado Anotación Exponencial. 
Por ejemplo, el número 5 millones (5.000.000) se podrá es- 
cribir como 5E + 06, que significa el número 5 seguido de 
seis ceros, o técnicamente 5*10 a la sexta potencia 
(s*10*10*10*10*10*10). 

Si en una de las soluciones a un problema aparece 
5E-06 esto significará que el punto decimal que está des- 
pués del 5 habrá que desplazarlo seis lugares a la izquierda, 
o sea 0.000,005, o lo que técnicamente se llama 5 por 10 a la 
menos sexta potencia. 


Esto no resulta muy difícil una vez se practique un poco 
para acostumbrarse a poder seguir el curso de los lugares 
decimales y de los ceros a contar. Dado que los Computa- 
dores insisten en usar este método y por ahora no hay nin- 
guno que trabaje de otra forma, practicaremos un poco con 
los dos ejemplos que ponemos a continuación. 
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Teclee los comandos NEW y CLS antes de empezar con 
los ejercicios para no confundirse con lo anterior y tener la 
memoria limpia. 


EJERCICIO 6-1 

Si un millón de coches recorrieron cada uno diez mil ki- 
lómetros en un año, ¿cuántos kilómetros habrán recorrido 
todos ellos en ese año? Escriba y ejecute este simple pro- 
grama y verá el resultado. 


EJERCICIO 6-2 

Cambie las líneas 20 y 30 del programa del EJERCICIO 
6-1 para expresar los números en Anotación Exponencial, y 
ejecute el programa. 
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CAPITULO 7 


LOS PARENTESIS Y OTRAS OPERACIONES 


Ls paréntesis juegan un importante papel en la progra- 
mación donde hay operaciones matemáticas, y son usados 
de la misma forma pero con unas excepciones: 


1.— En Basic, los paréntesis pueden albergar las opera- 
ciones que se han de ejecutar, siendo éstas las que se ejecu- 
tarían antes que las que están fuera del paréntesis. 


2.— Asimismo, las operaciones que están entre parénte- 
sis dentro de otros paréntesis, también se ejecutarán pri- 
mero. 


3.— Cuando hay una serie de operaciones ligadas entre 
sí, las cuales están entre paréntesis, el Computador ejecuta- 
rá la línea de izquierda a derecha resolviendo las multipli- 
caciones y las divisiones, y empezará otra vez a la izquierda 
para resolver las sumas y las restas. 

NOTA: Las funciones INT, RND y ABS se ejecutan an- 
tes que las multiplicaciones y las divisiones. 


4.— Un problema listado como (X) (Y) no será interpre- 
tado por el Computador como una multiplicación de X por 
Y (X*Y). 
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EJEMPLO 


Si Vd. desea convertir la temperatura de grados Fahren- 
heit a grados Centígrados (Celsius), habrá que usar la si- 
guiente relación: 

Los grados Fahrenheit es igual a 36 grados más nueve 
quintos de grados Centigrados. 

O lo que es igual a esta fórmula: 


F=(9/5)* C+32 


Vamos a asumir que tenemos una temperatura de 25 
grados Centígrados, y los queremos convertir a grados Fah- 
renheit. Tendremos que Editar el siguiente programa, por 
lo tanto limpiar la memoria y la pantalla con NEWy CLS. 


10 REM * CONVERSION DE GRADOS CENTIGRADOS A FAHRENHEIT x* 
20C=25 

3OF = (9 / 5) *C + 32 

40 PRINT C 3 "GRADOS CENTRIGRADOS ="; F ¿"GRADOS FAHRENHEIT." 
RUN : 


Lo que saldría en pantalla una vez ejecutado el progra- 
ma sería: 


25 GRADOS CENTIGRADOS = 77 GRADOS FAHRENHEIT. 


Lo primero que vemos en la línea 40 es una sentencia 
de PRINT seguida de cuatro expresiones, dos variables y 
dos grupos de palabras entre comillas llamadas LITERA- 
LES o CADENAS. 


En la línea 30 nos encontramos con la división de 9/5 
que se encuentra entre paréntesis, la cual la multiplicamos 
“por la variable C y al resultado le sumamos 32. Ahora qui- 
taremos los paréntesis; en la línea 30 ejecutaremos el pro- 
grama y veremos con asombro que la respuesta es la mis- 
ma POR QUE??? 
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1.— En la primera pasada, el Computador empieza re- 
solviendo la operación que está entre paréntesis, en este 
caso (9/5) dando un resultado de 1.8 el cual es multiplica- 
do por el valor de C (25) y finalmente sumando 32. 


2.— En la segunda ejecución, la cual ha sido quitando 
los paréntesis, el Computador simplemente ha empezado a 
calcular de izquierda a derecha encontrándose primero 
con la división de 9/5, luego con la multiplicación por el 
valor C y finalmente con la suma de 32. Dado que solamen- 
te se encontraba un solo paréntesis al principio, no había 
ninguna diferencia entre la primera y la segunda ejecución. 

El siguiente paso que probaremos será el poner el +32 
delante de la ecuación, o sea 32 + 9/5 * C, pero sin parénte- 
sis y todo esto en la línea 30, ejecutaremos el programa y 
veremos que la respuesta sigue igual POR QUE???. 

La respuesta es muy sencilla, el Computador empieza 
ejecutando de izquierda a derecha comenzando por las 
multiplicaciones o divisiones y volviendo otra vez a la iz- 
quierda para ver si hay alguna suma o resta. Así pues la ci- 
fra 32 no se suma al 9 antes de ser dividido entre 5. 


EJERCICIO 7-1 

Escriba y ejecute un programa que convierta 65 grados 
Fahrenheit a grados Centígrados. La fórmula para esta con- 
versión es la siguiente: 


C = (F-32) * (5)/(9) 


EJERCICIO 7-2 

Quite los primeros paréntesis del Ejercicio 7-1 y ejecute 
de nuevo el programa. 
EJERCICIO 7-3 


- Ponga de nuevo los primeros paréntesis en la línea 30 y 
quite los segundos paréntesis de esa misma línea, ejecute el 
programa y verá los resultados. 
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EJERCICIO 7-4 


En la ecuación que se muestra en este ejercicio, deberá 
escribir un programa, poniendo paréntesis entre las cifras 
que Vd. crea conveniente para que el resultado sea de 28. 
Escríbalo y ejecútelo. 


30-9-8-7-6=28 
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CAPITULO 8 


OPERADORES RACIONALES 


Dado que se empieza a entrar en temas más importan- 
tes, como las sentencias IF-THEN y GOTO que permiten 
que su Computador tome decisiones para ejecutar estas ac- 
ciones. Primero estudiaremos unos operadores más. 


Los Operadores Racionales permiten al Computador el 
comparar un valor con otro, y constan de solamente tres ti- 
pos: 


1.— El símbolo igual (=) 
2.— El símbolo mayor que (>) 
3.— El símbolo menor que (<) 


Combinando estos tres símbolos se pueden obtener 
otros tres operadores más: 


4.— El símbolo no igual a (< >) 
5.— El símbolo menor que o igual a (<=) 
6.— El símbolo mayor que o igual a (>=) 


Añadiendo estos seis Operadores Racionales a los cua- 
tro Operadores Matemáticos, los cuales los hemos cubierto 
en capítulos anteriores, más las nuevas sentencias IF- 
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THEN y GOTO, conseguiremos un gran sistema para com- 
parar y calcular, lo que es el corazón principal de todo lo 
que viene a continuación. 


La sentencia IF-THEN en combinación con los seis 
Operadores Racionales da una parte de acción de un siste- 
ma lógico. 


Entrar y ejecutar el siguiente programa: 

10 A =5 

20 1F A = S THEN 50 

0 PRINTO"A NO ES IGUAL QUE 3." 

40 END 

50 PRINT "A ES IGUAL QUE 5." 

Una vez ejecutado este programa, en la pantalla saldrá 
el siguiente mensaje: 

A ES IGUAL QUE 3. 

Ahora examinaremos el programa línea a línea. 


La línea 10 establece que el valor de la variable A es de 
Se 


La línea 20 es una sentencia IF-THEN que indica al 
Computador que salte a la línea 50 si el valor de la variable 
A es exactamente 5, saltándose las líneas que hay entre la 
20 y la 50 y mostrando en pantalla el mensaje de la línea 50. 


Si ahora modificamos la línea 10 para que se lea: 
10 A = 4 


Ejecutaremos de nuevo el programa, obteniendo el si- 
guiente mensaje en la pantalla: 


A NO ES IGUAL QUE 5. 
Examinando otra vez línea a línea veremos que: 
En la línea 10 el valor de la variable A es ahora de 6. 


La línea 20 comprueba el valor de la variable A, y dado 
que su valor no es de 5, no se saltará a la línea 50, sino que 
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el Computador se pasará a la siguiente línea la cual es la 
número 30. 


La línea 30 le indica al Computador que imprima el 
mensaje de A NO ES IGUAL QUE 5,, y no que el valor de 
la variable A no es 5, prosiguiendo el programa a la siguien- 
te línea. 


En la línea 40 se encuentra la sentencia END, la cual, de 
no encontrarse entre las líneas 30 y 50, el Computador se- 
guiría a la línea 50 imprimiendo su mensaje en la pantalla, 
el cual obviamente crearía un conflicto con el contenido en 
la línea 30. Esto ha sido un ejemplo del uso de la sentencia 
IF-THEN relacionada directamente con el símbolo de 
IGUAL. 


Las sentencias THEN y GOTO son opcionales en expre- 
siones donde no se requiere el ir a una línea específica 
para la comprobación. Estas sentencias son muy útiles en 
sentencias muy largas de PRINT donde la comprobación 
dará un resultado que deberá ser mostrado en pantalla. 


Por ejemplo: 


20 1F X = O FRINT "X = Q" (esto es correcto) 
Pero si: 
20 1£ X = 0 100 (esto es incorrecto) 
99 END 


100 PRINT "ES 100" 


En la línea 20 deberá haber lo siguiente: 


20 1F XxX = GO THEN 100 
O 
20 1F X = O GOTO 100 


Ahora veremos si Vd. puede conseguir los mismos re- 
sultados usando el símbolo de «no es igual a»: 
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EJERCICIO 8-1 

Escriba de nuevo el programa residente usando en la li- 
nea 20 el símbolo de «no igual a» (< >) en vez de el símbo- 
lo de «igual» (=), cambiando otras líneas que sean necesa- 
rias para conseguir el mismo resultado que en el programa 
del ejemplo. 


EJERCICIO 8-2 

Cambie el valor de la variable A de la línea 10 al valor 
de 6 dejando las restantes líneas intactas como aparecen en 
el Ejerciciio 8-1. Añada más líneas de programa para que el 
resultado nos indique que si A es mayor o menor que 5, y 
ejecútelo. 


EJERCICIO 8-3 

Cambie varias veces el valor de la variable A de la línea 
10 del programa, ejecutándolo cada vez que lo cambie, has- 
ta que vea que dicho programa le funciona correctamente. 


La sentencia IF-THEN se la conoce como «Sentencia 
de Ramificación Condicional», ramificándose el programa 
a Otra parte del mismo en la condición de comprobación 
de su contenido. Si la comprobación es falsa, simplemente 
el programa continúa a la siguiente línea. 


La sentencia llamada GOTO, se la conoce también 
como «Sentencia de Ramificación Incondicional». Si en el 
programa que tenemos en máquina, sustituimos las líneas 
40 y 80 con un GOTO 99 y añadimos la línea 99: 


99 END 

El Computador una vez llegue a las líneas 40 y 80, in- 
condicionalmente recibirá una orden de ir a la línea 99 fi- 
nalizando la ejecución del programa. Practique varias veces 
con estos cambios para que así se habitúe al uso de la sen- 
tencia GOTO la cual será usada muy a menudo en el futu- 
ro. 
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CAPITULO 9 


LA COMUNICACION CON EL COMPUTADOR 


En este momento Vd. está cansado de estar cambiando 
el valor de la variable A de la línea 10, por lo que empeza- 
remos a que dialogue con el Computador a través de la 
sentencia INPUT, la cual es muy sencilla, rápida y muy 
conveniente. 


Añada las siguientes líneas al programa residente en 


máquina: 
S PRINT "QUE VALOR DESEA DAR:" 
10 INPUT A : 


Ahora ejecute el programa, y el Computador le dará el 
siguiente mensaje en pantalla: 


QUE VALOR DESEA DAR: 
> 4 


El signo de interrogación que sale en la pantalla signifi- 
ca que es su turno para contestar y que el Computador le 
está esperando. 


Para comprobar qué pasa, entre un número y verá que 
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el resultado es idéntico a cuando Vd. introducía ese mismo 
número en la línea 10 anteriormente. Ejecute varias veces 
este programa para que tome buen contacto con la senten- 
cia INPUT. 


Vamos a dar un toque de clase a la sentencia INPUT, 
modificando la línea 5: 


S PRINT "QUE VALOR DESEA DAR:"; 


La diferencia que hay entre la primera línea 5 y la se- 
gunda, es que a esta última le hemos añadido al final un 
punto y coma. Si Vd. recuerda, anteriormente hemos usado 
el punto y coma con la sentencia PRINT, pero solamente 
en el medio de la sentencia para unir varias y así que apa- 
reciesen todas unidas y en la misma línea cuando saliesen 
en pantalla. En este caso se ha puesto un punto y coma al 
final para que el signo de interrogación aparezca en la mis- 
ma línea y no en la línea siguiente como ocurría anterior- 
mente. Una vez modificada la línea 5, ejecutaremos el pro- 
grama y en la pantalla se podrá leer lo siguiente: 


QUÉ VALOR DESEA DAR: Mi 


Hay que hacer notar, que Vd. no puede usar indiscrimi- 
nadamente el punto y coma al final de una sentencia 
PRINT, y sólo se usa al final para unir dos líneas juntas en 
una impresión de una sola línea, y en este caso la sentencia 
INPUT es la que coloca el signo de interrogación. Más ade- 
lante veremos cómo dos líneas en las cuales se comience 
con una sentencia PRINT, pueden ser unidas colocando 
un punto y coma al final de la primera línea y salir en pan- 
talla como una sola línea. 


El Interpretador del Basic del Amstrad es capaz de po- 
der dialogar en diferentes dialectos, siendo el primer dia- 
lecto que exploremos, a través de estos capítulos, los rela- 
cionados con la unión de las sentencias PRINT y INPUT. 
Para empezar, cambiaremos la línea 5 para que se lea de la 
siguiente forma: 
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S INFUT "QUE VALOR DESEA DAR:"3 A 


Y a continuación eliminaremos la línea 10, tecleando 
solamente el número 10 y luego ENTER. Ejecute este pro- 
grama y verá que el resultado es el mismo. 


Resumiendo, esto es lo que hemos cambiado: 


1.— La sentencia PRINT por la de INPUT. 
2.— Ambas sentencias en una misma línea. 
3.— Eliminar una línea extra. 


Este tipo de sustituciones es muy práctico cuando se es- 
criben programas largos, o se modifican, así como en su 
ejecución. Hasta el momento sólo hemos escrito progra- 
mas cortos y de una respuesta, los cuales los hemos ejecu- 
tado tantas veces los hemos requerido y obtenido cada vez 
la palabra Ready al final de la ejecución. Para salirse de 
esta monotonía, escribiremos un programa basado en el 
que hicimos en el Capítulo 7, de conversión de grados Cen- 
tígrados a Fahrenheit, pero modificándolo para que Vd. 
compruebe la utilidad de la sentencia GOTO. 


Teclee lo siguiente: 


NEW 
CcLs 
10 REM * MODIFICACION DEL PROGRAMA DE CONVERSION DE GRADOS k*k 
20 INPUT "QUE TEMPERATURA TENEMOS EN GRADOS CENTIGRADOS";¿ C 


SO F= (9/5) *X C + 32 

40 FRINT C; "GRADOS CENTIGRADOS ="3 F ¿"GRADOS FAHRENHEIT." 
Só GOTO 20 

RUN 


Con este programa Vd. verá que el Computador repite 
la misma pregunta una y otra vez hasta que Vd. se canse, 
dado que este tipo de máquinas son incansables. Modifique 
algún otro programa para que se ejecute de la misma for- 
ma, y así Vd. puede practicar con la sentencia GOTO. 


Le recomendamos que si en este momento Vd. tiene al- 
guna duda sobre los temas que hemos tratado en los dife- 
rentes Capítulos, vuelva sobre ellos, dado que los siguien- 
tes tratarán de conceptos y fundamentos más complicados. 
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CAPITULO 10 


EL USO DEL COMPUTADOR COMO UNA 
CALCULADORA 


Antes de entrar en la exploración de las partes más pri- 
mordiales de nuestro Computador, veremos cómo lo pode- 
mos hacer trabajar en el modo de Calculadora. Si omitimos 
el número de la línea antes de ciertos comandos, el 
Computador los ejecutará imprimiendo los resultados en 
la pantalla y borrando el comando usado. Además este 
modo se puede usar aunque tengamos cargado un progra- 
ma en memoria, sin molestarlo o incurriendo en errores. 


Para poder pasar al modo de Calculadora, sólo necesita- 
mos el signo del cursor en la pantalla y a partir de esc mo- 
mento podremos calcular lo que queramos. 


Ejemplo: ¿Cuánto es 3 por 4? Teclearemos lo siguiente: 
FPRINT 3 x 4 

El resultado aparecerá en pantalla como: 

12 

Ejemplo: ¿Cuánto es 345 dividido entre 123? 
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PRINT 345 / 12:13 
La respuesta será: 
2.80488 


Dedique unos minutos en poner problemas de rutinas 
matemáticas que a Vd. se le ocurran, usando el modo de 
Calculadora. Se podrá usar cualquier expresión aritmética 
que existe en un programa, en este tipo de modo de cálcu- 
lo, incluyendo los paréntesis así como los cálculos en cade- 
na, comoA*B*C 


Pruebe el siguiente problema: 
FRINT (2/3) k (3/2) 

La solución será: 

1 


Otro uso del modo de Calculadora, es el poder analizar 
algún problema de cálculo que tengamos en un programa, 
cuando la respuesta que nos ha dado el programa no es la 
adecuada. Así pues podemos hacer uso del Computador 
para saber dónde está el problema en la variable residente. 


Ejemplo: 
PRINT X (El Computador mostrara el valor actual de la variable X.) 
Otro caso es, cuando se ha almacenado en cada celdilla 
de la memoria, aunque Vd. no hubiese puesto nada dentro 


de ellas. Entrar y ejecutar esta instrucción en modo de Cal- 
culadora: 


FRINT A,B,C,D,E,FsGsHs Id HAL MINO. P.O,R¿S. TU, VW, X, Ys Z 


La respuesta dependería de los valores que se han dado 
a esas variables, pero si Vd. desconecta el Computador y lo 
conecta otra vez, las variables estarán todas a 0. 


Una de las características de este Computador, es el sa- 
ber en cualquier momento cuánta memoria ha usado, dado 
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que todos los programas ocupan un espacio de esa memo- 
ria y está limitada al tamaño de la misma, por eso se creó 
este Comando de Memoria. 


Para saber la cantidad de memoria usada, carge el pro- 
grama que va a ejecutar y una vez lo tenga en memoria v 
aparezca el símbolo del cursor, teclee lo siguiente: 


FRINT MEM 


La respuesta que dará, será la memoria usada por dicho 
programa. 


Para ver en la práctica de que tratamos, introduzcamos 
una línea de programa y luego veremos la cantidad de me- 
moria que ha ocupado. 


Entre la palabra NEW y luego la siguiente línea: 
10 A = 25 


FRINT MEM 


El resultado será de 11, y la distribución de estos bytes 
será de la siguiente forma: 


1.— Cada número de línea más su espacio correspon- 
diente (sin importar el tamaño del número) ocupa 4 bytes, 
así como el retorno del carro al final de la línea ocupa 1 
byte, haciendo un total de 5 bytes. 


2.— Cada letra, número carácter o espacio usa un byte 
de memoria, así pues en el ejemplo (A = 25) la memoria 
ocupada será de 6 bytes. Si a los 5 bytes del número de lí- 
nea más su espacio correspondiente más el retorno de ca- 
rro le sumamos los 6 bytes de los caracteres, tendremos un 
total de 11 bytes de memoria usada por esa línea. 


Practique Vd. un poco con este comando, escribiendo 
algunos de los programas anteriormente expuestos y vien- 
do la cantidad de memoria que usan. No se olvide de te- 
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clear la palabra NEW antes de introducir un nuevo progra- 
ma. Esta práctica le podrá ser de mucha ayuda en el futuro, 
dado que podrá retocar los programas para ahorrar parte 
de la memoria usada y dejar la mayor parte de ella libre 
para su ejecución. 
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CAPITULO 11 


EL USO DEL ALMACENAMIENTO EN CASSETTE Y 
DISCO 


Dentro de muy poco estaremos listos para escribir pro- 
gramas bastante largos y naturalmente no sería muuy prácti- 
co el tenerlos que teclear cada vez que se quisieran ejecu- 
tar. Por esta razón, se ha incorporado a este Computador 
una grabadora reproductora de Cassettes (DATACORDER) 
para facilitar el almacenamiento de los programas y asimis- 
mo poderlos cargar en memoria cuando sea necesario. 


Todos los controles de la operación de la Cassette se en- 
cuentran en unas direcciones residentes en ROM, las cua- 
les son ejecutadas cuando se accede a ellas. Naturalmente 
no nos vamos a meter en la explicación de estas direccio- 
nes de memoria, ni lo que hacen, dado que la operación de 
manejo no lo requiere. 


En el Basic del Amstrad hay una serie de comandos 
para el uso de la Cassette, los cuales son los siguientes: 


SAVE. Este comando salva el contenido del programa o 
de datos que se encuentran en memoria a la Cassette. 
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LOAD. Carga de la Cassette, el contenido del programa 
o de los datos en memoria para que puedan ser ejecutados. 

RUN. Carga y ejecuta el programa que contiene la Cas- 
sette. 

SPEED WRITE 1. Salva el programa contenido en me- 
moria a una velocidad de 2.000 baudios (velocidad rápida). 

SPEED WRITE 0. Salva el programa contenido en me- 
moria a una velocidad de 1.000 baudios (velocidad lenta). 

CAT. Este comando sirve para sacar un catálogo del 
contenido de una cinta de Cassette. 


Naturalmente Vd. podrá ampliar toda esta información, 
usando el manual de uso de su Computador en el cual vie- 
ne todo muy bien definido, así como el uso de las teclas de 
su DATACORDER. En el caso de que Vd. usase una unidad 
de disco de tres pulgadas, el manual del usuario del disco 
le explica el uso del mismo. 


Una de las recomendaciones que damos, es el usar 
siempre una cinta de Cassette virgen, o borrar con un bo- 
rrador de cintas una usada antes de grabar el contenido de 
la memoria, dado que si no lo hace, hay casos que quedan 
datos de otros programas y pueden destruir su nuevo pro- 
grama a la hora de cargarlos en memoria. Otra recomenda- 
ción es que cuando tenga que salvar un programa bastante 
largo o importante, lo haga por. duplicado en la misma cin- 
ta o en una segunda cinta. Dado que Vd. puede guardar 
programas uno detrás de otro en la misma Cassette, no 
necesitará tener gran cantidad de cintas, aunque es a gusto 
del usuario la forma de almacenamiento. 


Practique con su DATACORDER salvando alguno de los 
programas que hemos estado escribiendo en Capítulos an- 
teriores, y así se familiarizará con este tipo de operación 
que es de vital importancia. 


Cualquier duda que Vd. tenga sobre esta operación, di- 
ríjase al manual de usuario de su equipo antes de destruir 
un programa que le ha costado horas el teclearlo. 
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CAPITULO 12 


EL BUCLE FOR-NEXT 


Una de las mayores diferencias entre un Computador y 
una Calculadora es la habilidad de hacer las mismas cosas 
cuantas veces uno quiera y a una velocidad altísima. 


El bucle FOR-NEXT es de una abrumadora importan- 
cia para poder poner su Computador a trabajar en unas 
áreas de programación que serán exploradas a continua- 
ción. 

Para empezar con la explicación de este bucle, escribi- 
remos una rutina muy familiar para Vd., pero antes limpia- 
remos la memoria tecleando la palabra NEW. 

10 PRINT "AYUDA...MI COMPUTADOR SE HA VUELTO LOCO!!!" 
20 GOTO 10 
RUN 


Veremos que en la pantalla aparece continuamente la 
frase escrita en la línea 10 


AYUDA. ..MI COMPUTADOR SE HA VUELTO LOCO!! 


Esta'frase no parará de salir,hasta que uno mismo quie- 
ra que pare, y para esto bastará con pulsar la tecla ESC. 
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Hemos creado lo que se llama un «Bucle sin fin» (re- 
cuerde cuando hemos usado la sentencia INPUT en pro- 
gramas anteriores). En la línea 20 tenemos una sentencia 
incondicional de GOTO que actúa sobre el Computador en 
forma cíclica entre las líneas 10 y 20. 


Modifiquemos el programa anterior de la siguiente for- 
ma: 
8 FOR N = 1 TOS 
10 PRINT "AYUDA...MI COMPUTADOR SE HA VUELTO LOCO!!" 
20 NEXT N 


3O PRINT "NO...ESTA BAJO CONTROL." 
RUN 


La línea: 
AYUDA. ..MI COMPUTADOR SE HA VUELTO LOCO! ! 


Aparecerá en pantalla cinco veces, y luego saldrá la lí- 
nea: 


NO. ..ESTA BAJO CONTROL. 


El bucle FORT-NEXT creado en las líneas 8 y 20, hace 
que el Computador entre en un ciclo a través de las líneas 
8, 10 y 20 exactamente cinco veces para luego continuar 
con el resto del programa. Cada vez que el programa pasa 
por la línea 20 y encuentra la sentencia NEXT N, aumenta 
el valor de N exactamente 1, y el Computador incondicio- 
nalmente vuelve a la sentencia FOR N = para empezar el 
bucle de nuevo. Después del quinto pase por el bucle, éste 
se rompe y el programa continúa su ejecución. 


LA FUNCION STEP 


Hay veces que es necesario incrementar el bucle FOR- 
NEXT por un valor que no sea 1, teniendo que usar la fun- 
ción STEP. 


Para demostrar su uso, cambiaremos la línea 8 para que 
se lea de la siguiente forma: 


8 FOR N = 1 TO S STEP 2 
RUN 
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En este caso, la línea 10 ha sido imprimida en pantalla 
solamente tres veces (cuando N = 1, N= 3 y N = 5), dado 
que el primer pase del programa, cuando se llegó a la sen- 
tencia NEXT N, el valor fue incrementado por 2 en vez de 
por 1. En el segundo pase por el bucle, N fue igual a 3, y en 
el tercer pase N fue igualado a 5. 


Los bucles FOR-NEXT pueden ser incrementados por 
números decimales, positivos o negativos. La razón por la 
que se pueden usar números negativos se podrá demostrar 
a continuación con el cambio de la línea 8 del programa 
que deberá leerse de la siguiente forma: 

8 FOR N = 5 TO 1 STEF -1 
RUN 

Los cinco pases por el bucle en pasos desde 5 a 1, es 
exactamente igual que si fuesen de 1 a 5, dado que la línea 
10 sería impresa en pantalla cinco veces. Cambiando la 
sentencia STEP de -1 a 2.5 y ejecutando el programa otra 
vez, podrá observar que la línea 10 es imprimida dos veces. 
Cambie otra vez la línea 8 a STEP -1. 


Modificación del bucle FOR-NEXT 


Supongamos que queremos imprimir en pantalla 
cinco veces las líneas 10 y 30 intercalándose ambas lí- 
neas, piénselo y haga el cambio en el programa para 
conseguir este propósito. 


Le daré una pista: pruebe a mover la línea de NEXT 
N en otra posición y verá los resultados. 


CORRECTO, ha movido la línea 20 a la línea 40 y en su 
pantalla se puede leer lo siguiente: 
AYUDA. ..MI COMPUTADOR SE HA VUELTO LOCO! ! 
NO...ESTA BAJO CONTROL. 
AYUDA. ..MI COMPUTADOR SE HA VUELTO LOCO!!! 
NO...ESTA EAJO CONTROL. 
....eEtc etc tres veces mas. 
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Ejercite de nuevo con la siguiente modificación en el 
programa: 

Qué cambios haría Vd. en el programa, para que la línea 
10 se imprima cinco veces, y la línea 30 solamente tres. Mo- 
difíquelo y ejecútelo para ver los resultados: 


El nuevo programa deberá leerse de la siguiente forma: 


8 FOR N = 1 TOS 

10 PRINT "AYUDA...MI COMPUTADOR SE HA VUELTO LOCO!!!" 
20 NEXT N 

235 FOR M= 1 TO 3 

ZO PRINT "NO...ESTA BAJO CONTROL. " 

40 NEXT M 


Ahora tenemos un programa con dos bucles, el primero 
hace que la línea 10 aparezca cinco veces y el segundo bu- 
cle ordena que la línea 30 se imprima solamente tres veces. 
Hemos usado diferentes letras para los dos bucles, en el 
primero se ha tomado la letra N y en el segundo la letra M, 
pero Vd. podrá usar la que más le convenga. En este caso, 
podríamos haber usado la misma letra N para ambos bu- 
cles, dado que están totalmente separados, pero en la prác- 
tica cuando los programas son más largos conviene usar di- 
ferentes tipos de letras. 


Ejecute otra vez el programa anterior para que entienda 
los principios fundamentales y las variaciones que hemos 
introducido. 


No hay nada mágico en relación con el bucle FOR- 
NEXT dado que Vd., a lo mejor ha pensado alguna otra 
fórmula para conseguir los mismos resultados que si re- 
cuerda se trató en Capítulos anteriores. Así pues, pare un 
poco y piense en la manera de poder sustituir el FOR y el 
NEXT por otra cosa y que el resultado sea el mismo: 
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La solución es la siguiente: 


8N= 1 

10 PRINT "AYUDA...MI COMPUTADOR SE HA VUELTO LOCO!!" 
13 N = N + 1 

20 IF N < 6 THEN 10 

3O PRINT "NO...ESTA BAJO CONTROL." 


El análisis de este programa es el siguiente: en la línea 8 
hemos inicializado el valor de N, dándole un valor de 1, 
dado que antes de su inicialización, su valor pudiese ser 
cualquier número tomado de las otras líneas, y una vez eje- 
cutamos el programa (run) ponemos todas las variables a 
O. 


En la línea 15, incrementamos el valor de N en 1 del que 
tenía anteriormente. La línea 20, usa uno de los operadores 
con el signo menor que para que compruebe que el nuevo 
valor de N está dentro de lo establecido, y si no el progra- 
ma continúa su ejecución. 


Notará que en este modo de incrementación y compro- 
bación no se le ha mandado al programa que salte a la lí- 
nea B, como en el caso del bucle FORT-NEXT. ¿Que pasa- 
ría si lo hiciésemos? 

RESPUESTA: Estaríamos reinicializando el valor de Na 
1 y crearíamos un bucle sin fin. 


Lo opuesto a «incrementar» es «decrementar», así pues 
vamos a cambiar la línea 15 para que se lea de la siguiente 
forma: 


13 N = N —- 1 


Efectúe otros cambios para que el programa funcione y 
ejecútelo para ver sus resultado. 
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RESPUESTA: Vd. debería haber cambiado las siguientes 
líneas: 


gNn=é 
15 N = N — 1 
20 IF N + 1 THEN 10 


No es muy entretenido el estar haciendo lo mismo una 
y otra vez, y hay otras formas de poder demostrar las ven- 
tajas del bucle FORT-NEXT. 


Supongamos que queremos sacar por pantalla, una ta- 
bla donde se muestre el tiempo que se tarda en ir desde 
Londres a San Diego, variando la velocidad de crucero del 
avión. Recordará la famosa fórmula D =R * T, pues esta ta- 
bla deberá mostrarnos la variación en tiempo, en una velo- 
cidad entre 200 Km/h. y 1000 Km/h en incrementos de 100 
Km/h. 


El programa será como sigue: 


NEW 

10 REM *X TABLA DE TIEMPOS Y VELOCIDADES * 

20 CLS 

JO D= 6000 

40 PRINT " LONDRES A SAN DIEGO ls 
50 PRINT 

60 PRINT "VELOCIDAD"; "HORAS"; "DISTANCIA (KLM) " 
70 PRINT 

80 FOR R = 200 TO 1000 STEP 100 

90 T=DY/R 

100 PRINT Ri T3 D 

110 NEXT R 


Realmente es el mismo problema del Capítulo 5 pero 
repetido 9 veces para diferentes valores, y su pantalla dará 
un resultado como el siguiente: 
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LONDRES A SAN DIEGO 


VELOCIDAD HORAS DISTANCIA (ELIM) 
ZO00 ZO 6000 
300 20 6000 
40O 15 6000 
S00 12 S6000 
600 10 6000 
700 8.07/143 6000 
800 7.5 6000 
900 6. 66667 £$6000 
1000 6 6000 


Analicemos el programa 


En la línea 20 usamos el comando CLS para limpiar la 
pantalla. 

La línea 30 inicializa el valor de D 

La línea 40 imprime la cabecera a doble espacio sola- 
mente por estética. 

En las líneas 50 y 70 se usa la sentencia PRINT para es- 
paciar los resultados. 

La línea 60 imprime la información referente a los valo- 
res. 

En la línea 80 se establece un bucle de FOR-NEXT 
completándolo con un STEP inicializando el valor de R a 
200 y haciendo pases del bucle en incrementos de 100 has- 
ta el final cuando se llegue a 1000, siendo la línea 110 la 
otra mitad del bucle. 

En la línea 90 se encuentra la fórmula actual que calcu- 
la la respuesta. Y en la línea 100 se imprimen los tres valo- 
res de la respuesta al problema. 


Tómese un descanso y piense si tiene alguna duda so- 
bre este Capítulo con lo cual le recomiendo que salve este 
programa en cinta o disco dado que se usará en el próximo 
Capítulo. 
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CAPITULO 13 


MAS SOBRE EL BUCLE FOR-NEXT 


Si Vd. ha desconectado su Computador, deberá cargar 
de nuevo el programa último del Capítulo anterior, que lo 
debería haber salvado en cinta. 


Una vez esté cargado el programa y comprobado que 
funciona, modificaremos el mismo para variar un poco los 
resultados. 


Supongamos que en vez de un incremento de 100, de- 
seamos un incremento de 50. Modifique este programa y 
ejecútelo para ver los resultados con este nuevo incremen- 
to. 


La solución está en la línea 80 que deberá leerse de la 
siguiente forma: 


80 FOR R = 200 TO 1000 STEP 50 


Dado que una vez ejecutado la solución se muestra en 
pantalla a una velocidad muy rápida como para compro- 
barlo, pulsando la tecla ESC la pantalla se parará, volvién- 
dose a reanudar pulsando cualquier otra tecla. 
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Para demostrar la importancia que tienen los «Bucles 
de tiempo», emplearemos otro truco muy interesante intro- 
duciendo un segundo programa de la siguiente forma: 


Empiece entrando por el teclado: 
$ END 


Usaremos el espacio entre las líneas 1 y 8 para escribir y 
experimentar con el segundo programa. 


El segundo programa será de la siguiente forma: 


1 FRINT "NO SE MARCHE" 

2 FOR X = 1 TO 4000 

Z NEXT X 

S FRINT "EL FROGRAMA FINALIZARA" 
“RUN 


La ejecución del programa tardará aproximadamente 
unos diez segundos, dado que el Computador ejecuta el bu- 
cle FOR-NEXT en 400 veces por segundo aproximada- 
mente, significando que este retardo de tiempo lo puede 
Vd. controlar variando la línea 2. 


EJERCICIO 13-1 

Usando el espacio entre las líneas 1 y 8, diseñar un pro- 
grama donde le pregunte cuántos segundos de retardo de- 
sea Vd., permitiéndole entrar el número que desea, ejecu- 
tando el retardo y dando el resultado. 


Cómo manejar listados largos 


Como hemos visto anteriormente, para listar programas 
se usaba el comando LIST, el cual le imprimía en pantalla 
todo el listado del programa, pero Vd. llegará a tener pro- 
gramas bastantes grandes, y el listarlos le ocasionará bas- 
tantes problemas para seguirlos, por lo que a continuación 
le daremos la solución. 

Entre las diferentes variaciones del comando LIST que 
a continuación le ponemos: 
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LIST 50 (listará solamente la línea 50) 

LIST - 50 (listará todas las líneas hasta la 50) 
LIST 50 - (listará desde la línea 50 hasta el final) 
LIST 30-70 (listará solamente las líneas desde la 30 a la 
70) 

LIST. (listará la línea que está en ese momento) 


Otro truco que Vd. deberá tener en cuenta, es que si por 
ejemplo tiene dos programas residentes en el Computador, 
puede ejecutar el primero con solamente entrar la palabra 
RUN, y para ejecutar el segundo sólo tiene que entrar el 
comando: 


RUN 4hat4+ (donde ++ +4 ++ es el número de línea donde 
comienza dicho programa) 


Mientras tanto, tenemos un programa metido en la me- 
moria del Computador con el cual veremos diferentes as- 
pectos referentes a los «bucles de tiempo». 


Primero borraremos la parte de prueba del programa 
escribiendo DELETE 1-9 ENTER, a continuación entre 
LIST. Lo que ha pasado es que se ha borrado desde la lí- 
nea l a la 9 asemejándose este comando a lo que se puede 
hacer con el de LIST. La única variación entre uno y otro 
es que sólo se puede usar en DELETE lo siguiente: 


DELETE ++$+* (donde +H$* es el numero de linea) 
DELETE —4HHt4 
DELETE AHHH 


Así que continuemos, y entremos la siguiente línea: 
83 IF R = 600 THEN STOF 


Esto hará que el programa se pare cuando la variable R 
llegue a la cifra de 600, apareciendo en la pantalla el men- 
saje de: 


Break 


Significando que en el programa se ha producido una 
ruptura de la ejecución, y pudiéndolo continuar con su eje- 
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cución, usando el comando CONT, sin alterarse para nada 
el programa mientras esté parado. 


Por último crearemos un bucle de tiempo en el progra- 
ma para así, poder estudiar el resultado en pantalla sin te- 
ner que meter el comando STOP. Teclee lo siguiente: 


83 1F R 2% 600 THEN 90 
87 FOR Xx = 1 TO 4000 
88 NEXT X 

RUN 


Maravilloso!!! funciona, mientras que R no sea igual a 
600 el programa saltará sobre las 87 y 88, hasta que su va- 
lor llega a ser 600 entrando en acción el bucle de tiempo 
(líneas 87 y 88) haciéndo que el programa se pare durante 
aproximadamente unos diez segundos. 


EJERCICIO 13-2 

Modifique el programa residente en memoria para que 
la palabra Km/H aparezca debajo de VELOCIDAD, TIEM- 
PO debajo de HORAS, y Km debajo de DISTANCIA. 


EJERCICIO 13-3 

Escriba y ejecute un programa que calcule e imprima 
(si tiene Vd. impresora), las retribuciones en base a: anuali- 
dad, mensual, semanal y diario, basado en 40 horas sema- 
nales, 12 meses al año, y en 52 semanas, con una retribu- 
ción anual entre 500.000 pts y 2.500.000 pts. en incrementos 
de 100.000 pts. Documente su programa con sentencias 
REM. 


EJERCICIO 13-4 

Escriba y ejecute un programa donde le indique cuán- 
tos días debe Vd. trabajar, empezando con 100 pts al día y 
doblando este sueldo cada día que pasa, hasta que llega a 
ganar un millón. Debe incluir unas columnas donde apa- 
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rezcan el número del día, su ganancia diaria, y el total de 
ganancias a la fecha. 


EJERCICIO 13-5 

Si Vd. tiene un rollo de alambre de 1000 metros y desea 
cercar una parcela rectangular, determinar las dimensio- 
nes de largo y ancho donde se pueden cercar el máximo de 
metros cuadrados usando todo el alambre. 

La fórmula para el área es: AREA = LARGO por ANCHO, 
o lo que es igual: 
A=L*W 


EJERCICIO 13-6 

Una de las muchas ventajas de un Computador, es la 
asistencia en cálculos eléctricos por lo que probaremos si 
Vd. es capaz de crear un programa más sofisticado. 

Con los valores que se dan en el esquema, escribir y eje- 
cutar un programa donde se calculen los diferentes valores 
de una resistencia de carga que vayan de 1 a 20 Ohmios en 
incrementos de 1 Ohmio, imprimiendo las respuestas como 
siguen: 

1.— Valor de la Resistencia de Carga (de 1 a 20 Oh- 
mios). 

2.— Total de la potencia del circuito (la fórmula es: co- 
rriente del circuito al cuadrado por la resistencia del cir- 
cuito) 

3.— Pérdida de potencia en origen (corriente del circui- 
to al cuadrado por la resistencia en origen) 

4.— Potencia de la resistencia de carga (corriente del 
circuito al cuadrado por la resistencia de carga) 


Nota: la corriente del circuito se calcula dividiendo el 
voltage (120 V) por el total de la resistencia del circuito (10 
Ohmios). Todo esto sigue la ley de OHMS que es: V=1I* R 
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CAPITULO 14 


FORMATEANDO CON EL TABULADOR 


Después de un par de Capítulos un poco complicados, 
nos meteremos en uno un poco más sencillo. Dado que 
hasta ahora hemos aprendido tres formas de usar la sen- 
tencia PRINT, lo que a continuación explicaremos será lo 
siguiente: 

1.— Se deberá poner entre comillas las sentencias con 
sus espacios correspondientes de lo que queremos que sal- 
ga en pantalla. 

2.— Separar los objetos de las sentencias PRINT con 
un punto y coma para que todo salga en una misma línea. 

3.— Se usará la función TAB (la misma función de tabu- 
lación de una máquina de escribir), para tabular el texto y 
así tener una pantalla organizada. 


Para demostrar esta última función, escribimos este pe- 
queño programa: 


10 PRINT TAR(S);"EL"5TAB(20)5"TOTAL"¿TAR(35); "GASTADO" 
20 PRINT TAR(S); "PRESUPUESTO"; TAR(20) 3 "MES" TAB(359)5"ES" 
-30 PRINT TAR(S)¿"CATEGORIA"¿TAB(20) 5 "PRECIO" TAB(35)3 "UNIDAD" 


RUN 
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EJERCICIO 14-1 
Escriba un programa usando los tres formatos de 
PRINT con las formas que se le dan a continuación: 


1 .— FRINT " ”n m 00 ” s ”n 
2.- PRINT " " 
F.- PRINT TAB( 33" "TABC 3" "¿TAB( 3" " 


Recuerde que cuando se usa el formato 1, las sentencias 
aparecerán en la pantalla una debajo de otra, así que tenga 
en cuenta esta recomendación. 


Se pueden usar los TAB (nn) con un punto y coma o sin 
él, dado que no afecta para nada y el Computador empeza- 
rá a contar los espacios de izquierda a derecha, pero es 
bueno recordar que cuando se imprimen en pantalla nú- 
meros o variables de números, el Computador dejará un 
espacio para los signos + y —. Escriba y ejecute el siguiente 


programa: 
10 A = 3 
ZO B=3 
0 C0=Acs+E 


40 PRINT TAB(10)¿ "A"¡¿TAB(20)3 "E"TAB(ZO) 3 "C" 
SÓ FRINT TAR(10)7 AF TAR(20)3 Ej TAR(3O)5 C 


El resultado aparecerá en la pantalla de la siguiente for- 
ma: 


A E C 
a 3 8 
Ahora cambiaremos la línea 20 para que se lea: 
20 B=-5 
RUM 
¿Puede comprobar la diferencia que hay? 
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DIVIDIR LINEAS LARGAS 


Un problema que se le puede presentar, es cuando ne- 
cesita imprimir un gran número de cabeceras o respuestas 
en una misma línea, pero no hay sitio en la línea del pro- 
grama. Para demostrarlo, escribiremos el siguiente progra- 


cn 

pa 
-IOnTmonomap 
MA 


ION Oocoaldn 


100 J = 10 

200 FRINT "A"; TAB(S)3 "R"¡TARC(10)5 "C"¿TAR(15)3 "D"; 
210 FPRIMNT TAB(20)3 "E"¿TARB(25)3 "F"sTAB(IO)3 "G"; 
220 FRINT TAB(2339)3 "H"¿TAB(40)3 "I"5TAB(45)3 "J" 

300 PRINT Aj TAB(5)3 Bj¿TAR(10) Ci3TAR(15)5 DiTARB(20);5 
310 PRINT E¡TARB(20)3 FÍ¿TAB(3O0)Í G¡TAB(359)5 H;TAR(40);5 
320 PRINT I¿TARB(45)3 J 


El punto y coma al final de cada línea del programa 
hace que en la salida por pantalla aparezca todo en una 
misma línea, pero si le quitamos el punto y coma nos hará 
un retorno de carro al final de la misma. 


EJERCICIO 14-2 

Escriba de nuevo el programa del Ejercicio 13-3 para in- 
cluir el «PRECIO HORA» en la salida. Usar la función TAB 
para crear una tabla de 5 columnas. 


EJERCICIO 14-3 

Modifique la respuesta del problema 13-6, usando la 
función TAB para que en la pantalla aparezca incluida una 
quinta columna con la resistencia interna. 
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USO DE LA IMPRESORA DE PAPEL 


Hasta ahora se ha tratado los diferentes modos de la 
sentencia PRINT para que el resultado saliese por la pan- 
talla. A continuación le mostraremos cómo los resultados 
pueden salir por la impresora (si tiene Vd. una instalada a 
su Computador). En el caso de que no disponga de una, sál- 
tese esta sección dado que no le será de ninguna utilidad. 


Conecte la impresoa, póngala en línea con el Computa- 
dor, y teclee la siguiente linea: 


10 PRINTR8B "LA IMPRESORA FUNCIONA!!!" 


Vea que hemos cambiado la palabra PRINT por la de 
PRINT +8 dado que el canal 8 es el de la impresora. 


En el caso de que no salga nada por la impresora, com- 
pruebe la instalación de la misma y pruebe de nuevo el im- 
primir la línea editada. Una vez le funcione todo, escribire- 
mos otro programa para que así Vd. vea los resultados. 


NEW 
106 FOR X = 1 TO 100 
20 PFRINT+8 X; 


Vea como la impresora le formatea la hoja en pequeñas 
columnas, dado que hemos puesto un punto y coma al final 
de la línea 20. 


El uso de la función TAB en unión con la impresora, es 
muy recomendable, dado que Vd. puede formatear las ho- 
jas de salida a sus necesidades, pudiendo usar números en 
TAB (n=0-255), dependiendo del tipo de letra a usar y el 
ancho de su impresora. 


Para ver cómo la función TAB actúa sobre un programa 
con salida por impresora, escribiremos y ejecutaremos el 
siguiente programa. 
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MEW 

10 PRINTS TAR(20) "LISTIN TELEFONICO" 
20 FRINTS 

30 FRINTRS TAR(15) "MNOMBRE"¿ TAB(45) "MUMERO TELEFONICO" 
40 FRINTHS 

50 INPUT "NOMBRE DE LA PERSONA"; AS 

60 INFUT "MUMERO TELEFONICO"; E$ 

70 FRINT "MUCHAS GRACIAS" 

80 FRINT*8S TAB(15) Así TAR(43) ES 

90 INFUT "ALGUN OTRO MOMBRE (S/N)"z Q$ 

100 IF 0% = "S" THEN 50 

RUN 


En el caso de que el papel de su impresora fuese más 
estrecho, deberá usar otra numeración en las funciones 
TAB para formatear el texto en la hoja. 


Otra cosa que puede Vd. hacer con su impresora, sería 
el listar su programa, para lo cual sólo debe teclear la pala- 
bra LIST ++8 Y ENTER, y verá salir su listado. 
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CAPITULO 15 


BUCLE AVANZADO DE FOR-NEXT 


Como verá no hemos terminado con el dichoso bucle 
FOR-NEXT, dado que ahora lo trataremos diferentemen- 


te. 


Entre el siguiente programa: 


NEW 

FOR A 
20 FRINT 
FOR E 
FRINT 


30 NEXT E 
NEXT A 


= 1 TO Z 
"RUCLE A" 
= 1 TO 2 
"RUCLE E" 


“. 
” 


El resultado sería esto: 


BUCLE A 


BUCLE A 


RUCLE A 
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RUCLE E 
RUCLE E 


EUCLE E 
BUCLE E 


BUCLE E 
RUCLE E 


Este programa ha demostrado la utilidad del bucle 
FOR-NEXT para poder formatear una pantalla y que los 
resultados salgan ordenados. 


Analicemos el programa paso a paso: 

La línea 10 establece un bucle FOR-NEXT llamado A y 
lo direcciona para que se ejecute tres veces. 

En la línea 20 está la sentencia PRINT con el texto 
«BUCLE A» pudiéndolo identificar el programa para sa- 
carlo en pantalla. 

La línea 30 establece el segundo bucle llamado B y lo 
direcciona para que se ejecute dos veces. 

La acción de la línea 40 es la de imprimir los dos con- 
ceptos, de los cuales el primero está en blanco seguido por 
una coma para su posicionamiento del segundo con el tex- 
to de «BUCLE B». 

La línea 50 completa el bucle «B» y devuelve el control 
a la línea 30 para la cantidad de ejecuciones del bucle «B» 
como lo mandó dicha línea. 

En la línea 60 finaliza el primer paso del bucle «A» man- 
dando el control a la línea 10. 


Muy bien, ahora veremos qué pasa cuando modificamos 
una línea. Empezaremos cambiando la línea 10 para que se 
lea de la siguiente forma: 

10 FOR A = 1 TO 3 

RUN 


El resultado ha sido que el BUCLE A se ha impreso cin- 
co veces y el BUCLE B diez, dos veces por cada paso del 
bucle «A». Ahora cambiemos la línea 30. 

0 FOR E += 1 TO 4 

RUIN 

Lo que tenemos ahora es que el BUCLE A, ha salido 
cinco veces y el BUCLE B veinte veces. Si tiene dificultad 
en contar los pasos, nada más que tiene que pulsar una 
sola vez la tecla de ESC y se parará la pantalla, reanudán- 
dose con solo pulsar cualquier otra tecla. 
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El siguiente paso es el hacer unos cambios para que vea 
lo que pasa cuando se varía el programa. 


Cambiaremos las líneas siguientes: 


50 NEXT A 
60 NEXT E 
RUN 


En la pantalla del Computador le saldrá un mensaje de 
ERROR que dice lo siguiente: 


Unexpected MEXT in 60 


Examinando el programa veremos rápidamente que el 
bucle B no puede actuar con el bucle A, dado que tenemos 
parte de la sentencia FOR del bucle B dentro del bucle A, 
pero la sentencia NEXT se encuentra fuera. Así pues modi- 
fique su programa para que funcione poniéndolo en su es- 
tado original. 


Seguiremos con nuestro programa añadiendo otras lí- 
neas para demostrar que la condición de división de los 
bucles es perfectamente legal. Así pues, añadiremos las si- 
guientes líneas: 

30 NEXT E 

39 IF A = 2 GOTO 100 

60 NEXT A 

99 END 

1006 FRINT "A ES IGUAL A DOS...FIN" 

RUN 

Si Vd. ha modificado el programa anteriormente, no 
tendrá que meter las líneas 50 y 60. 


EJERCICIO 15-1 

Entre el programa original que se encuentra al princi- 
pio de este Capítulo, el cual contiene un bucle B anidado 
con el bucle A. Haga las modificaciones necesarias a este 
programa para que un nuevo bucle C esté anidado con el 
bucle B y que se imprima BUCLE C cuatro veces por cada 
paso del bucle B. 
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EJERCICIO 15-2 

Modifique el programa residente, que corresponde a la 
solución del ejercicio 15-1, añadiendo las líneas necesarias 
para que un nuevo bucle D sea anidado, o intercalado, con 
el bucle C, y que aparezca la palabra BUCLE D cinco veces 
por cada paso del bucle C. 
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CAPITULO 16 


LA FUNCION DE NUMEROS ENTEROS 


No tiene por que asustarse con el nombre de esta fun- 
ción, dado que un Número Entero puede ser cualquier nú- 
mero, como -5, 0 ó 3. La función de «Números Enteros» se 
representa como INT (X), permitiéndonos el redondcar 
cualquier número, sea grande o pequeño, positivo o negati- 
vO. 


Entre el siguiente programa: 


NEW 
JO X = 3.14159 

40 Y = INT (X) 

70 PRINT "Y = "j¿ Y 
RUN 


El resultado que saldrá en pantalla será; 
Y = A 


Significando que la cifra 3.14159 la ha redondeado al 
número 3. 


Modifiquemos la línea 30: 
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SO X= -3,.14159 
RUIN 


El resultado que tenemos ahora es: 


Y = —4 


Naturalmente el programa ha redondeado la cifra al va- 
lor inferior el cual es 4, dado que esta función siempre 
rendondea a negativo o hacia abajo. 


Examinando línea a línea tendremos lo siguiente: 


En la línea 30 coloca un valor a X (o otra letra si Vd. lo 
desea) igual al valor que hemos seleccionado, en este caso 
el valor de «Pl». 


La línea 40 encuentra el valor del INTEGER (Número 
Entero) de la línea anterior, y le asigna un nombre varia- 
ble, en este caso Y. 

La línea 70 imprime en pantalla la identificación (Y =) 
seguido por su valor. 


A continuación jugaremos un poco con la combinación 
del bucle FOR-NEXT y con la función INTEGER (Núme- 
ro Entero). 


Cambie el programa para que se lea de la siguiente for- 


ma: 
30 X= 2,.141309 
40 Y = INT (X) 
SO Z = X - Y 
60 FRINT "Xx = "3 X 
TO PRINT "Y = "j Y 
80 PRINT "Z = "g 2 
RUN 


El resultado que hemos obtenido es: 


3.141309 


X 
Y 
Z 


io Hood 


.14159 
En este caso se ha dividido el valor de X entre su Ente- 
ro (INTEGER) y le hemos llamado Y y a su decimal Z. 
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Hay una forma de controlar la precisión de los resulta- 


dos, e implica el redondear la fracción de los espacios deci- 
males de un número, y forzar al Computador para que im- 
prima solamente los dígitos que han sido redondeados. 


Entre el siguiente programa para demostrarlo: 


NEW 

10 XxX = 3,14159 

20 X= X + ¿00085 

30 X = INT (XxX *x 1000) / 1000 
40 PRIMT X 


El resultado será de: 
Sa 142 


Pruebe con otros valores de X pero asegurándose de 


que no sean demasiado grandes para que los pueda mane- 
jar la función INT. 


Ahora probaremos el usar el bucle FOR-NEXT para 


poder dividir el número en más lugares, para eso entrare- 
mos el siguiente programa: 
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MEW 
SÓ = 3,141539 
40 = INT (X) 
30 = X — Y 
60 PFRINT "X 
7O PRINT "Y 
80 PRINT "Z 
90M = Z xXx 10 

100 L  = INT (M) 
110 FRINT "L = "¿L 
RUN 


NX > 


odio A 
< 


El resultado será: 


3. 14139 


1.14139 


TN <> 
bono 
+0 dt 


Lo siguiente que debemos hacer es añadir las siguientes 
líneas: 


93 FOR A = 1 TO 3 
120 M= M- L 

130 M= MX 10 
140 NEXT A 

RUN 


El resultado de esta nueva versión será el siguiente: 


xk = 3.14159 
aa 
7 = 0,.14159 
Lo= 1 
L = 4 
Lo= 1 
Lo= 53 
Lo= 9 


Para poder seguir la ejecución del programa, se pueden 
insertar líneas de PRINT y así nos saldrá en pantalla paso 
a paso lo que va sucediendo. Por ejemplo podríamos inser- 
tar las líneas siguientes: 


SS MODE 2 

92 PRINT "92 Mo= "zm 

97 PRINT "497 A = "¿ A 

123 PRINT , , "4123 M= "3 M 
133 PRINT 4 . CRi33 Mo= "gg oM 
RUIN 


Como Vd. podrá notar, en la línea 5 hemos usado un co- 
mando nuevo, el cual lo único que hace es cambiar el for- 
mato de pantalla a 80 carácteres por línea, esto se explica 
perfectamente en su manual de usuario. 


EJERCICIO 16-1 


Entre este sencillo programa para poder averiguar el 
área de un círculo. 
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MEL 


10 P.= 3,14159 
20 PRINT "RADIO", "AREA" 
O PRINT 


40 FOR Ro= 1 TO 10 
50 A=PRRAR 
60 PRINT Ry A 

70 NEXT FR 

FUN 


Dado que la solución a este programa la da con muchos 
decimales, y hay personal que nada más están interesadas 
en números simples, modifique el programa para suprimir 
todos los números a la derecha del punto decimal. 


EJERCICIO 16-2 

Como en este momento Vd. es un experto en estos 
cálculos, cambie la línea 55 para que cada valor de AREA 
esté redondeado con una precisión de un decimal. Por 
ejemplo: 


RADIO AREA 
1 Ed 


ll... 


EJERCICIO 16-3 

Sigamos complicando más las cosas. Cambie otra vez la 
línea 55 para que cada valor del AREA esté redondeado 
con una precisión de dos decimales. 
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CAPITULO 17 


MAS SENTENCIAS DE RAMIFICACION 


Para comenzar con este Capítulo, entraremos el siguien- 
te programa: 


NEW 
10 INFUT "ENTRE UN NUMERO DEL 1 AL 3"3 N 


20 IF N = 1 GOTO 110 

SO TFN <= 2 GOTO 1230 

40 1 N = 3 GOTO 150 

50 IF N = 4 GOTO 170 

046 1 N = $ GOTO 190 

7O FPRIMT "EL MUMERO QUE Vd. HA ENTRADOS NO ESTA ENTRE EL 1 Y 'i" 
9% END 

110 FRINT "N = 1% 

1206 END 


130 FRINT "N = 2" 
140 END 


150 PRINT O"N = 3" 
160 END 
17% PRINT "N = 4" 
1806 END 


190 FRINTO"N o = 5" 
Ejecute este programa varias veces para ver si lo entien- 


de y así poder continuar. 


De cualquier forma este programa es muy interesante 
para examinar los valores de una variable N y ordenar al 
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COMPUTADOR que pare cuando se ha ejecutado. Hay infi- 
nidad de maneras para ramificar, pero queremos usar la 
sentencia ON-GOTO que ahorra muchas líneas de progra- 
ma, así como memoria en su Computador. Examinemos la 
sentencia ON-GOTO después de modificar este programa. 


Borre con el comando DELETE las líneas 20, 30, 40, 50 
y 60, y entre una nueva línea: 


20 ON M GOTO 110,130,1590,170,190 
RUN 


Verá que el resultado de la ejecución de este programa 
es el mismo que el anterior, con la diferencia de que nos 
hemos ahorrado cuatro líneas. 


Dado que hay muchos trucos para sacar más jugo a la 
sentencia ON-GOTO, pondremos el siguiente ejemplo: Si 
queremos hacer una ramificación de quince diferentes lo- 
calizaciones, pero no queremos escribir esa cantidad de nú- 
meros en la línea de ON-GOTO, podemos ahorrar muchas 
líneas haciendo lo siguiente: 

20 ON N GOTQ 110, 130, 150, 170, 190 

23 ON MN - 6 GOTO 21%, 230, 200, 270, 290 

2 QAN ON —= 106 GOTO 310, 330, 390, 370, 390 


Rellenando el programa con las respuestas apropiadas. 


En la línea 25 será necesario el restar 5 del número que 
hemos dado a la variable N, dado que cada nuevo ON- 
GOTO empieza contando desde el número 1. En la línea 
30, dado que hemos provisto de entradas entre 1 y 10, res- 
taremos 10 de la entrada a la variable N para convertirlo 
del 11 al 15. Usando la setencia ON-GOTO hemos progra- 
mado en tres líneas donde de la otra forma usaríamos 
quince. 


Una función llamada SGN (X) 


La función SGN examina cualquier número para ver si 
es negativo, cero, o positivo, siendo una función muy sim- 
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ple. Para podernos meter en ella, vamos a crear una fun- 
ción SGN en una SUBRUTINA. 


¿Qué es una SUBRUTINA? 


Una Subrutina es un programa (o rutina) muy corto, 
pero importante, que está dentro de otro programa más 
grande para una necesidad muy especial. En Basic se alma- 
cenan muchas Subrutinas para posteriormente poderlas 
llamar con un juego simple de letras. 


Para demostrar lo que es y cómo funciona una Subruti- 
na, escribiremos el siguiente programa: 


NEW 

50000 END 

30800 REM *X SGN(X) * ENTRADA X, SALIDA T = —1,0, OR +1 X 
30810 1F X 2 O THEN T = —1 

30820 IF X = O THEN T = 0 

30830 IF X + O THEN T = +1 


30840 RETURN 


Para llamar a una Subrutina se deberá usar la sentencia 
GOSUB, que direcciona al Computador para que se despla- 
ce a la línea indicada, la ejecute y luego volver (RETURN) 
a la línea de la sentencia GOSUB. En unas sencillas pala- 
bras, es una sentencia de ida y vuelta, lo contrario de la 
sentencia GOTO, que es solamente de ida. Para demostrar- 
lo, usaremos la línea 20: 


20 GOSUR 30800 


Ahora combinaremos las sentencia GOSUB y SGN 
usándolas como subrutinas. 


10 INFUT "ENTRE UN NUMERO CUALQUIERA": X 
20 GOSUB 30800 

ZO ON T +2 GOTO 50, 60, 70 

43 END 

50 FRINT "EL NUMERO ES MEGATIVO." 

39 END 

60 FRINT "EL NUMERO ES CERO," 

63 EMD 

70 PRINT "EL NUMERO ES POSITIVO, " 

RUN 
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Examinando el programa, veremos lo siguiente: 

La línea 10 le pide un número 

En la línea 20 le manda al Computador que se dirija a la 
línea 30800 con la sentencia GOSUB 

Una vez en la línea 30800 se ejecuta la subrrutina de la 
línea 30800 a la 30840. 


En la línea 30840 se encuentra un RETURN que de- 
vuelve el control a la línea 20 para que prosiga el programa 

La línea 30 contiene una sentencia ON-GOTO pero 
suma 2 al valor de su variable, en este caso «T», indicando 
que si T es -1 diríjase a la línea 50, si es cero, a la línea 60, y 
sies+l, a la línea 70. 

Las líneas 45, 55, y 65 son rutinas de bloque de protec- 
ción. 
EJERCICIO 17-1 

Quite del programa todas las líneas de la subrrutina, y 
usando la función SGN consiga los mismos resultados que 
cuando se usaba la subrutina. (T = SGN(X)). 
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CAPITULO 18 


NUMEROS ALEATORIOS 


Un número Aleatorio es un número con un valor impre- 
dicible. El Generador de Números Aleatorios crea una se- 
rie de números diferentes, expresándolo de la siguiente 
manera: 


N = END (X) 


En esta función, N es el número aleatorio, RND es la 
abreviación del símbolo de un aleatorio, y X es el número 
de control que puede estar o entre paréntesis, o se le pue- 
de llamar como una variable desde el programa. 


Entre el siguiente programa: 


NEW 

40 FOR N = 1 TO 10 
50 FRINT RND (6) 
60 NEXT ON 

RUN 


En la ejecución de este programa, ha podido observar 
que cada vez aparece un número diferente, que todos los 
números estaban entre el 0 y el 1, y que los números pe- 
queños eran expresados en anotación exponencial. 


77 


La biblia del AMSTRAD 77 


Si modificamos el programa cambiando las líneas 40 y 
50, tendremos lo siguiente: 


40 FOR N = 1 TO 90 
SO FRINT RMD(0); 
60 MEXT M 

RUIN 


El punto y coma que se ha colocado al final de la línea 
50, ha sido para que aparezcan más números en la pantalla 
de una sola vez, y se ha aumentado el bucle FOR-NEXT en 
90 pases. 


Para que Vd. vea lo que hacen los números aleatorios, 
escribiremos un programa bastante largo el cual una vez lo 
ejecute se examinará su contenido. 


NEW 
10 INFUT "CUANTAS VECES DESEA TIRAR LA MOMEDA"; F 
20 CLS 


30 PRINT "ESPERE UN POCO MIENTRAS YO LA TIRO..." 
40 FOR N = 1 TO F 

SO X = RND (2) 

60 ON X GOTO 90, 110 

70 FRINT "SE HA EQUIVOCADO, MO HA SIDO MI 1 NI 2," 
80 END 

90 H=.He+si 

100 GOTO 120 

110 T = T+ 1 

120 NEXT N 

130 PRINT "CARAS", "CRUCES", "TIRADAS TOTALES" 
140 FRINT H, T, F 

150 FRINT 100 XxX H / Fg "2%", 100 kx T / Fz "Z" 


Compruebe que el programa está escrito correctamen- 
te, y una vez comprobado podrá ejercutarlo con el coman- 
do RUN. 


Dado que ha visto cómo funciona, empezaremos a exa- 
minar dicho programa: 


En la línea 10, le pide el número de tiradas. 
La línea 20 limpia la pantalla. 
La línea 30 le pone una sentencia de espera. 
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En la línea 40 comienza un bucle de FOR-NEXT que se 
ejecuta F veces. 

La línea 50 es el generador de RND (X), al cual le he- 
mos mandado que genere números enteros entre el 1 y el 
Ze 

En la línea 60 hay una comprobación ON-GOTO, man- 
dando X= 1 ala línea 90, y X=2 a la línea 110. 

Las líneas 70 y 80 se usan como líneas por defecto con 
lo cual si X no es igual a 1 ó 2 aparecerá un mensaje y fina- 
lizará el programa. Esto no ocurrirá pero insista para pro- 
barlo. 

La línea 90 es el contador de H, dado que cada vez que 
la sentencia ON-GOTO hace una comprobación manda el 
control a esta línea incrementando en uno y siguiendo con- 
tando. 

La línea 100 manda el control a la línea 120 cuando la 
primera sentencia NEXT N es ejecutada hasta que el nú- 
mero de pase es igual a F, devolviendo el control a la línea 
130. Hasta que esto ocurra, la sentencia NEXT N mandará 
el control a la línea 40. 

La línea 50 genera otro número aleatorio. 

La línea 60 manda el control a la línea 110. 

La línea 110 lleva el control del número de veces que ha 
salido «Cruces». 

La línea 120 pasa el control a la línea 130 cuando la últi- 
ma «N» es usada. 

La línea 130 imprime las cabeceras. 

La línea 140 imprime los valores de H, T, y F 

La línea 150 calcula e imprime los porcentajes de «ca- 
ras» y de «cruces». 


TAmbién hay la posibilidad de generar más de un nú- 
mero aleatorio, usando varios generadores dentro del mis- 
mo programa. Para demostrar este punto, crearemos un 
programa del juego de los «DADOS», donde tenemos dos 
dados con seis caras cada uno, teniendo las caras unos 
puntos que van del 1 al 6 respectivamente. Cuando se tiran 
los dos dados los puntos que aparecen en sus caras supe- 
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riores se suman, siendo el 2 la suma más inferior, y el 
12 la superior. Se creará dos Generadores de Números 
Aleatorios para cada dado con un rango del 1 al 6 y llaman- 
do a un dado «A» y al otro «B». 


NEW 

50 A = RND(6) 
60 BE = RND(S) 
TON =Az+ E 
80 FRIMT ON 
RUN 


Practique con este juego varias veces para ver sus resul- 
tados, y naturalmente se podrá divertir mucho con sus 
amigos. 
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CAPITULO 19 


LAS SENTENCIAS REAC, DATA, Y RESTORE 


Hasta ahora hemos aprendido a entrar números en un 
programa por dos métodos diferentes, siendo el primero la 
construcción de un valor en un programa 


10A=5 


y el segundo, usando la sentencia INPUT para entrar un 
número deseado. 


10 INFUT A 


El tercer método, el cual será el que trataremos en este 
Capítulo, es el que usa la sentencia DATA. 

Para empezar la explicación, entrar el siguiente progra- 
ma: 


NEW 
10-DATA- 14 2 E A 
20 READ A, E, C, D 
ZO FRINT A, E, C, D, E 
LIN 


moco 


La sentencia DATA, de alguna manera, al primer méto- 
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do en que la línea de DATA es parte del programa, la dife- 
rencia que se encuentra es que cada línea de DATA contie- 
ne una cantidad de números o datos, todos ellos separados 
por una coma. 


La sentencia READ es necesaria para poder leer cada 
parte de la sentencia DATA, pudiendo leer cada sección 
que esté separada por una coma, empezando a leer siem- 
pre de izquierda a derecha y empezando por la primera lí- 
nea de DATA, sin importar donde se encuentre en el pro- 
grama, así pues Vd. podrá encontrar programas donde las 
sentencias de DATA están al final del mismo, y en otros al 
principio. 

Dado que hemos aprendido el uso del bucle FOR- 
NEXT, ahora veremos qué pasa cuando se colocan senten- 
cias de DATA en medio de un bucle, para eso borraremos 
la memoria y escribiremos el siguiente programa: 


NEW 

10 DATA 1, 2, ly 4, 5 
20 FOR N = 1 TOS 

ZO READ A 

40 FRINT A; 

SO NEXT ON 

RUN 


En este programa,la línea de DATA se encuentra fuera 
del bucle, así pues para ver lo que pasa, la moveremos den- 
tro del mismo escribiéndola como línea 25 y ejecutándolo 
otra vez. 


Habrá notado que no hay diferencia entre una ejecu- 
ción y la otra, dado que como hemos pasado la variable N 
cinco veces por el bucle, y leído (READ) la letra A y a su 
vez impresa dicha letra con la sentencia PRINT, la letra A 
tendrá un valor diferente cada vez, dado que en cada paso 
se ha leído una parte de la sentencia DATA. 


En algunos casos será necesario el tener que leer la mis- 
ma DATA más de una vez sin tener que ejecutar (RUN) de 
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nuevo el programa, para este caso hay disponible una sen- 
tencia llamada RESTORE donde su función es que cuan- 
do un programa se encuentra con esta sentencia, todas las 
líneas de DATA son restauradas a su condición original 
aunque se hubiesen leído o no, estando listas para volver a 
ser leídas. Para demostrarlo, introduciremos la sentencia 
RESTORE en nuestro programa: 


35 RESTORE 
RUN 


Sorpresa!!!! en la pantalla aparecen cinco unos en vez de 1 
2345, ¿puede Vd. descifrarlo? 


En la línea 30 se lee la letra A como 1, inmediatamente 
en la línea 35 hacemos un RESTORE a la línea de DATA a 
su estado original, haciendo que el bucle FOR-NEXT lea 
(READ) la DATA cinco veces. 


Las sentencias DATA y READ son muy comunes en los 
programas, cosa que no lo es la sentencia RESTORE. 


Cadenas Variables 


Hasta ahora hemos estado usando las letras de la A a la 
Z como Variables Numéricas, y podemos usar las mismas 
añadiendo el signo «$» a continuación de la letra (A$) para 
crear Cadenas Variables. Este tipo de cadenas se les puede 
asignar para indicar letras, palabras y/o combinaciones de 
letras, números y espacios. Escriba el siguiente programa: 


NEW 

10 IMFUT "CUAL ES SU NOMBRE"; A$ 

20 FRINT "QUE TAL ESTA, "3 AS 

RUN 

Como puede verse la palabra que hemos creado con su 
nombre, aparece en la ejecución del programa, así pues he- 
mos aprendido dos formas de imprimir palabras, la prime- 
ra tratada en los primeros Capítulos con la sentencia 
PRINT, y la segunda a través de la sentencia INPUT 
con cadenas variables. 
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Cambie el programa para que se lea: 


10 READ A$ 

20 DATA COMPUTADOR AMSTRAD 
30 FRINT "VEA MI "z As 
RUN 

VEA MI COMPUTADOR AMSTRAD 


Ahora vamos a usar dos Cadenas Variables para conse- 


guir el mismo propósito, para eso modificaremos el progra- 
ma: 


10 READ As 

13 READ ES 

ZG DATA COMPUTADOR, AMSTRAD 

30 FRINT "VEA MI "3 4% " "g Es 
RUN 


Analizando el programa tenemos lo siguiente: 


En la línea 20 tenemos dos palabras de DATA separa- 


das por una coma 


La línea 10 lee (READ) la primera 
La línea 15 lee (READ) la segunda 
En la línea 30 hay cuatro expresiones de impresión, la 


primera imprime VEA MI dejando un espacio para la cade- 


na 


variable, la segunda imprime el contenido en A$, COM- 


PUNTADOR, la tercera deja un espacio correspondiente al 
que está entre comillas, y por último imprime la variable 


B$ 
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, AMSTRAD. 


CAPITULO 20 


BASIC INTERMEDIO 


Hasta este momento, hemos estado tratando con un ba- 
sic Elemental, así pues lo que viene a continuación será un 
poco más profundo y deberá prestar mucha atención. 
Líneas de sentencias múltiples 


EL BASIC permite el poner en una misma linea varias 
sentencias separadas por dos puntos (:), para así ahorrar 
espacio y hacer que el programa sea más corto. Por ejem- 
plo: 


100 FOR N = 1 TO 300 
110 MEXT ON 


Se puede poner como sigue: 
100 FOR N = 1 TO 500 3: NEXT ON 


Este tipo de sentencias múltiples hay que entenderlas 
muy bien, dado que en algunos momentos son muy críticas 
como en el caso de IF-THEN. 


Entre este programa: 
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NE 

10 INFUT "ENTRE UN NUMERO", X 

20 1F X = = THEN 50 : GOTO 70 

20 PFRINTO "COMO HA LLEGADO HASTA AQUIS" 


446 END 

SO PFRINT "Xx = 3" 

60 END 

7O FPRINT "NO FUEDO 1R DE AQUI FARA ALLA." 
RUIN 


Ejecútelo varias veces con diferentes valores para que 
vea los resultados. 


La línea 20 tiene un error lógico. Si la comprobación de 
la primera sentencia en la línea pasa, el control es manda- 
do a la línea 50, pero si no pasa el control va a la siguiente 
línea 30, sin poder ser ejecutada la sentencia GOTO 70 de 
la línea 20. 


Nunca se podrá mandar el control en un línea con sen- 
tencias múltiples excepto en la primera sentencia. Si se fija 
en la línea 20, vera que hay forma de direccionar la porción 
de GOTO 70, dado que comparte el mismo número de lí- 
nea que la primera sentencia en la misma línea. 


Nuevas Cadenas Variables 


Hasta ahora hemos usado las cadenas variables A$ y 
B$, pudiendo usarse todas las letras del alfabeto más los 
números del 0 al 9 y además combinacionaciones de dos le- 
tras, como por ejemplo X$, DB$, PI$, B4$ etc. 


Hay varios trucos para escribir menos y no cansarse 
cuando hay un programa largo que introducir en la 
máquina. 

El primero es el usar el simbolo «?» en sustitución 
de la palabra PRINT, así pues lo probaremos escribiendo: 


NEW 
10 2 "SU NOMERE" 
LIST 
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y aparecerá en pantalla 
10 FRINT "SU NOMERE" 
Pruebe ahora con: 

23% 4 y obtendrá 


10 
do 


Otra abreviación muy común que se puede usar, es la 
que sustituye a la sentencia REM que se usará el símbolo 
«'», que aparecerá en muchos programas como: 


JO X= 2 XxX C/4+ 353 “LA ECUACION SECRETA 


El único sitio donde esta abreviatura no se puede usar 
es en las líneas donde se encuentre la sentencia DATA, pu- 
diéndose resolver usando dos puntos (:) al final de la sen- 
tencia DATA. Para observar este fenómeno, vea el siguien- 
te programa: 


10 REM * PROGRAMA DE DEMOSTRACION x 


20 * H = POSICION HORIZONTAL 

30 ? Y = POSICION VERTICAL 

40 CLS ? N = NUMERO DE BLOQUES VERTICALES 
SO READ H, V, N 3 Vi = Y ” LEER DATA Y ALMACENARLA 

60 IF N = 0 GOTO 60 * BUCLE CUANDO NO HAY DATA 

70 FOR H=HTOH+*2 " 3 PASES PARA BLOQUE TRIPLE 

80 FOR V=VTOV+N- 1 ? CONTADOR DE IMPRESION DE N ELOQUE 
90 ? H, Vz NEXT Y ” TERMINACION BUCLE HE IMPRESION 
100 Y = Viz NEXT Hz GOTO 50 " RESETEA V A LA LINEA DATA 

1000 DATA 102,3,9,105,10,1,108,7,3,111,6,1 :" DATOS 

1010 DATA 114,7,3,117,10,1,120,3,9,0,0,0 3” DATOS 


Liste este programa para ver los resultados y así en el 
futuro usar estas abreviaciones. 


PRINT?? 


Cuando se usan varias entradas en una sentencia de IN- 
PUT en una misma línea, y si nos olvidamos de separar 
cada entrada con una coma, aparecerá en pantalla, y en la 
siguiente línea el símbolo especial de ?? indicando que se 
ha olvidado de entrar más datos. Por ejemplo, practique 
con la siguiente línea. 
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NEW 
10 INFUT A, E, C 
RUN 


NEXT opcional 


Los bucles FOR-NEXT no siempre se especifica que 
FOR es para el NEXT, siendo muy útil cuando los bucles 
están entrelazados. Entre el siguiente programa: 


NEW 


10 FOR N = 1 70 5 3: FRINT ON 
20 FOR O = 170 3 : FRINT ¿0 
3O FOR R = 1704: FRINT ,¿KR 
40 NEXT: NEXT: NEXT 


RUN 


Ejecútelo varias veces para tomar buen contacto con 
este tipo de bucle y así poder evaluarlo. 


Este método no se podrá usar en programas donde se 
encuentren bucles de prueba donde los cuales se deberán 
partir. Otra forma de abreviatura sería como ésta: 

40 NEXT R, O, N 
La sentencia IF-THEN-ELSE 


La palabra ELSE es un tipo de condición muy intere- 
sante para sentencias de ramificación, permitiendo que si 
una comprobación es falsa no pase a la siguiente línea. 
Pruebe con el siguiente programa: 

NEW 

1 CLS : PRINT 

10 IMFUT "ENTRAR UN NUMERO"; MN 

20 IF N = 0 FRINT "CERO" ELSE PRINT "MO ES CERO" 


SO PRINT: LIST 
RUN 


La sentencia POS (N) 


Esta sentencia proporciona una posición horizontal del 
cursor que ocupa en ese momento correspondiente a un 
cauce de salida dado. Entre este simple programa: 
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MEW 


1 CLS : FPRINT 


10 
20 
30 
40 
90 


RUN 


INPUT "UN NUMERO ENTRE -10 Y 53", A 

FRINT TAB(10 + A) 

FRIMT POS (N) 

FRINT "EL NUMERO DE LA SIGUIENTE PASICION DE PRINT" 
FRINT: LIST 


En la línea 30 nos encontramos con la sentencia POS y 


la letra N que se encuentra entre paréntesis es de pura fic- 
ción. Esta sentencia informará cualquier posición del cur- 
sor hasta la 63. 
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CAPITULO 21 


EL CONJUNTO ASC II 


La misión de este Capítulo es el aprender cómo usa 
ASC y CHR$, y antes de empezar se deberá ver lo que se 
llama «Conjunto ASC Il» que su significado es «American 
Standard Code for Information Interchange». Dado que el 
Computador solamente almacena números y no letras o 
símbolos, es importante el informar al sistema las equiva- 
lencias de esas letras y símbolos, y para ello existe una ta- 
bla llamada ASC II, la cual la podrá encontrar en su ma- 
nual de usuario y también en este libro. 


Teclee este programa: 


NEW 

10 FOR N = 32 TO 235 

20 FRIMNT "NUMERO ASCII", N; 

ZO PRINT "EQUIVALENTE A", CHR$ (N) 
40 FOR T= 1 TO 500: NEXT T 

SO NEXT ON 

RUN 


Este programa imprimirá en nuestra pantalla los códi- 
gos ASCII desde el número 32 y el 255 estando incluidos 
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todas las letras tanto mayúsculas como minúsculas, así 
como símbolos y gráficos. 


Que es un CHR$ (N) ?? 


Hasta ahora hemos estado usando la función CHR$ sin 
saber realmente lo que significaba, aunque nos dábamos 
una idea. La misión de la función CHR$ (N) es producir un 
carácter ASC II (o una acción de control) especificada por 
el codigo N. Es una forma de convertir del codigo ASC ll a 
un carácter ASC II y permitirnos el poder jugar con los ca- 
racteres igual que lo podríamos hacer con números. 


Entrar este simple programa para demostrar la acción 
del CHR$ (N): 


NEW 

16 INFUT "FONGA UN NUMERO ENTRE 33 Y 127" N 
20 FRINT CHR$(N) 

30 RUN 

RUIN 


Naturalmente con este programa hemos visto los dife- 
rentes números que corresponden a los diferentes caracte- 
res, pero hay más números dentro de esta tabla ASC II, los 
cuales sirven de control, por lo que le sugiero que pruebe 
con los números de control en el programa anterior, y verá 
los resultados. Para más “orientación, use la tabla ASC II 
que se encuentra en su manual de usuario. 


Que es unASC ($)?? 


La función ASC es exactamente lo opuesto a CHR$ (N), 
convirtiendo de alguna forma los caracteres ASC II en su 
correspondiente número ASC II. 


Entre este programa para demostrárselo: 


NEW 

10 INFUT "ENTRE CUALQUIER LETRA, NUMERO O CARACTER"; As 
20 PRINT "SU NUMERO ASCII ES:";¿ ASC(A$) 

SO FRINT 

40 GOTO 10 

RUN 
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Como podrá comprobar, este programa le proporciona 
cualquier número ASCII que Vd. quiera saber de cualquier 
carácter. 


Una segunda forma de usar la función ASC sería de la 
siguiente forma: 


10 FRINT ASC("A") 


Con lo cual cualquier letra que esté dentro del parénte- 
sis y entre comillas, le dará su resultado en numeración 
ASCII. 


Antes de que podamos entender lo que hacemos, debe- 
remos aprender un poco más sobre las cadenas, las cuales 
están ligadas de alguna forma al código ASCII. 
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CAPITULO 22 


GENERALIZACION DE CADENAS 


Uno de los más importantes aspectos del Manejador de 
Cadenas, es la habilidad de la comparación de las mismas. 
Hasta ahora hemos podido comparar variables numéricas, 
pero ¿cómo comparar cadenas de letras o palabras? Muy 
sencillo, habrá visto Vd. que en el Capítulo anterior hemos 
tratado sobre el código ASCH con lo cual nos da paso para 
poder demostrar que la comparación de Cadenas de letras 
o palabras se puede efectuar, dado que el Computador 
compara el código ASCII de esas letras o palabras, en 
otras palabras, traduce las letras a números. 


Entre el siguiente programa: 


NEW 

1 CLS 

10 INFUT "ESCRIBA SU NOMERE"3 AS$ 

20 IF A$ = "AEIDOUSSDTA" THEN 50 

SO FRINT "LO SIENTO SU NOMBRE NO ES AEIDUSSDTA!" 
40 END 

50 PRINT "VD. NO SABE DELETREAR SU NOMBRE?" 

RUN 
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Durante el proceso de comparar el nombre que Vd. ha 
entrado en la línea 10 como Af, el código ASCII traduce le- 
tra a letra la palabra, para más tarde compararla con la que 
hemos puesto en la línea 20 que a su vez ha sido traducida 
por el mismo código. 


Si se lee (READ) una cadena que no tiene, comas, punto 
y coma, o espacios, no será necesario el ponerla entre co- 
millas, aunque si la pone no pasará nada pero es muy pesa- 


do. 


EJERCICIO 22-1 

Escriba un programa donde se comparen dos cadenas 
entradas desde el teclado, e imprímalas en orden alfabéti- 
co. 


Escriba el siguiente programa donde se leerá cadenas 
de datos de una línea de datos: 


NEW 

1 CLS 

10 READ A$, E$, C$ 

20 FPRINT A$ 

3O FRINR E$ 

40 PRINT C$ 

100 DATA AMSTRAD COMPUTER, LOCOMOTIVE SOFTWARE, INGLATERRA, 12345 
RUN 


Vea los resultados con muchas atención, que serán los 
siguientes: 


AMSTRAD COMPUTER 
LOCOMOTIVE SOFTWARE 
INGLATERRA 


Ha notado que no ha salido en pantalla la numeración 
de 12345, y eso es dado porque en la sentencia READ sola- 
mente tenemos tres conceptos, y en la de DATA hemos 
puesto cuatro. Así pues para poder imprimir la coma como 
parte de la cadena, habrá que poner entre comillas la sen- 
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tencia que queramos. Modifiquemos la línea 100 para ver 
los resultados: 


100 DATA AMSTRAD COMPUTER, "LOCOMOTIVE SOFTWARE, INGLATERRA", 12345 
RUN 


Ahora verá la diferencia. Pero, ¿que pasaría si pusiéra- 
mos toda la línea de DATA entre comillas dejando la que 
está? Modifique la línea 100 otra vez: 


100 DATA "AMSTRAD COMPUTER, "LOCOMOTIVE SOFTWARE, INGLATERRA", 12345" 
RUN 

Un desastre, tenemos un ERROR de sintaxis dado que 
el Computador no es lo suficientemente inteligente para 
descifrar cómo dividir las comillas dentro de una cadena 
constante. 
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CAPITULO 23 


MEDICION DE LAS CADENAS 


Una de las necesidades más frecuentes en programa- 
ción, es el saber la longitud de una Cadena, con lo que 
usando la función LEN se puede resolver el problema. 


Entre el siguiente programas, 


NEW 

1 CLS: PRINT 

10 INFUT "ENTRE UNA CADENA DE CARACTERES"; AS 
20 L = LEN (A$) 

SO FRINT As; "TIENE"; L ¡"CARACTERES" 

96 PRINT: LIST 


Ejecute este programa varias veces, poniendo su nom- 
bre y otras combinaciones de letras y números. No ponga 
ninguna coma entre los nombres o números, pero sí puede 
poner comillas. 


El comando LEN tiene una variación muy significante, 
y es que no es práctico a no ser que realmente se necesite, 
y para demostrarlo, cambiaremos las líneas 10, 20, y 30 de 
nuestro programa: 
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10 INFUT "ENTRE UN NUMERO"; A 

20 L = LENC(A) 

O FPRINT Az "TIENE"s L ; "CARACTERES" 

RUN 

Veremos que nos da un ERROR, dado que tratamos de 
introducir un número en una función LEN, donde se re- 
quiere una cadena. Ahora variaremos la línea 20 cambian- 
do la función LEN para que sea una cadena: 


20 L = LEN("A") 

RUN 

Parece que no importa qué número Vd. meta con la se- 
tencia INPUT dado:que siempre la respuesta es 1 carácter. 
La respuesta a este fenómeno es muy sencilla, dado que la 
función LEN evalúa la longitud de lo que está entre parén- 
tesis (o comillas). Al principio toma la cadena y mide su 
longitud, pues como estábamos midiendo lo que estaba en- 
tre comillas, la longitud no cambia con el valor de A. Como 
dijimos anteriormente, la función LEN tiene sus limitacio- 
nes, pero nos dice la longitud de lo que hay. 


Cambie el programa a su estado original como aparece 
al principio del Capítulo. 
DEFSTR 


El comando DEFSTR nos permite definir qué variable 
debe ser una cadena variable, y así no tener que usar el sig- 
no $. Ponga esta línea en el programa que está residente en 
memoria: 


S DEFSTR A 
Usando el Editor, quite los signos $ de las líneas 10, 20, y 
30, y ejecute el programa. 


Comprobará que funciona perfectamente, dado que he- 
mos declarado en la línea 5 una cadena variable. Ahora 
cambiemos otra vez la línea 5 de la siguiente forma: 


3 DEFSTR A-Z 
RUN 
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En este caso hemos creado un ERROR dado que la L 
de la línea 20 es ahora también una cadena, y dado que la 
función LEN nos da la longitud de una cadena, como nú- 
mero, esto no funciona en este caso con L. 


El comando DEFSTR puede usarse para definir varia- 
bles individuales, por ejemplo: 


DEFSTR A, N, Z 


EJERCICIO 23-1 


Escriba un programa donde se use la función LEN para 
comprobar la longitud de una cadena entrada desde el te- 
clado, e imprima un mensaje donde nos informe que la ca- 
dena tiene más de 10 carácteres. 


EJERCICIO 23-2 

Escriba un programa donde si se entra una palabra des- 
de el teclado la compare con un palabra secreta (Pass- 
word), y si coinciden, que saque un mensaje que diga PA- 
LABRA SECRETA CORRECTA, TIENE ACCESO, pero si no 
que dé el siguiente mensaje PALABRA INCORRECTA, LO 
SIENTO. Almacene el número ASCII de cada letra de la 
palabra secreta en la línea de DATA. Lea (READ) cada va- 
lor y use CHR$ para crear la cadena de la palabra secreta. 
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CAPITULO 24 


LAS FUNCIONES VAL ($) Y STR$ (N) 


Por definición, si nosotros convertimos una variable nu- 
mérica (que puede almacenar cualquier número) a una ca- 
dena variable (que puede almacenar cualquier cosa), el 
contenido de la nueva cadena seguirá siendo el número 
original. Consecuentemente si cambiamos una cadena va- 
riable a una variable numérica, no podremos cambiar nin- 
guna letra u otros caracteres a números, solamente los nú- 
meros en una cadena podrán ser convertidos a una varia- 
ble numérica (no se confunda con una conversión en AS- 
CID. 


VAL 


La función VAL convierte una cadena variable conte- 
niendo un número a numérica, si el número está al co- 
mienzo de la cadena. Probaremos este programa con la 
función VAL: 


NEW 

1 CLS: PRINT 

10 INFUT "QUE CADENA CONVERTIRE A UN NUMERO"3 As 
20 A = VAL(A$) 
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ZO PRINT "EL VALOR NUMERICO DE "zp A$ 3" ES "3 A 
30 FRINT: GOTO 10 
RUN 


Entre diferentes bloques como: 

12343 

ASDF 

12ASD 

128 

A,B,C 

A continuación quitaremos de las líneas 10, 20 y 30 el 
signo de $ y lo ejecutaremos de nuevo entrando los mismos 
números y letras. 


El resultado es nefasto, dado que la función VAL sólo 
evalúa cadenas y nosotros hemos puesto a la variable A 
como valor numérico. 


STR$ 


Ahora trataremos con lo opuesto anteriormente, y es el 
convertir una variable numérica en una cadena variable. 
Cambie el programa anterior: 


NEW : 

1 CLS: FPRINT 

10 INPUT "QUE NUMERO DESEO CONVERTIR A CADENA"; A 
20 AB = STR$(A) 

30 FPRINT "EL VALOR DE LA CADEMA DE "¿ A 5"ES";¿ AS 
90 FRINT: GOTO 10 

RUN 


Use las mismas entradas que utilizamos en el programa 
de VAL. 


Aunque este Capítulo ha sido muy corto, no deja de ser 
muy interesante y sería importante que Vd. practicara con 
él para que en un futuro pueda usar estas dos funciones. 


EJERCICIO 24-1 
Escriba un programa donde se le preguntará la calle y 
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el número donde vive, y usando la función VAL extraer el 
número de la calle. Sumar el número 4 al número de la ca- 
lle y reportar este nuevo número como el de su vecino. 


EJERCICIO 24-2 

Escriba un programa usando la función STR$ donde se 
impriman 20 números de stock de artículos: 101WT, 
102WT, 103W,.....120WT. 
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CAPITULO 25 


Tres diferentes funciones pero muy similares son usa- 
das para poder jugar con las cadenas, éstas son LEFT$, 
RIGHTf$ Y MID$. Empezaremos nuestro ejercicio con este 
programa: 

MEW 

1 CLS: FRINT 

ZQ S$ = "JOSE ESTUDIO AQUI" 
60 FRINT LEFTS$(S$,4), 

70 FRINT MID$(S$,8,7), 

80 FRINT RIGHTS (S%, 4) 

90 FRIMT: LIST 

RUN 


En la pantalla aparecerá: 


JOSE ESTUDIO AQUI 


El aprender el uso de estas funciones es muy simple, y 
estudiando el programa muy despacio y con atención 
mientras se le explica lo que pasa. 


LEFT$ imprime los 4 carácteres más significativos de 
la izquierda en la cadena llamada S$. 


MID$ imprime los 7 caracteres en la cadena llamada 
S$ empezando por el octavo carácter a la izquierda. 
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RIGHT$ imprime los 4 caracteres más significativos a 
la derecha en la cadena llamada S$. 


Hemos añadido comas al final de las líneas 60 y 70 en 
orden para que todo se imprima en una sola línea. Movere- 
mos algunas líneas en el programa, para ejercitar con estas 
funciones. 


Primero moveremos la línea 70 a la 50: 


SO FRINT MID$(5$,8,7), 
RUN 


Se obtendrá lo siguiente: 
ESTUDIO JOSE AQUI 


Ahora moveremos la línea 80 a la 40 añadiendo una 
coma al final: 


40 FRINT RIGHTS (S%, 4) 
Obteniendo lo siguiente: 
AQUI ESTUDIO JOSE 


Estas tres funciones pueden hacer maravillas con las ca- 
denas, por lo que entraremos un nuevo programa para exa- 
minarlas con más detalle: 


NEW 

1 CLS: FRINT 

10 FOR N = 1 TQ 17 

20 FRINT "N = "3 N, 

30 S%$ = "JOSÉ ESTUDIO AQUI" 
40 FRINT LEFTS (S$,N) 

SÓ FOR T= 1 TQ 500: MEXT T 
60 NEXT ON 

90 PRINTS LIST 

RUN 


Una imagen relentizada lo explicará más deprisa que 
muchas palabras. La función LEFT$ toma N letras de la 
parte izquierda de la cadena y las imprime. Vea cómo esto 
puede usarse para partir los tres primeros dígitos de un 
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número telefónico, o la primera letra de un nombre cuan- 
do se hace una selección. 


Cambie la línea 10 


10 FOR N = 1 TO 20 
RUN 
Como podemos ver, aunque solamente hay 17 caracte- 


res en esta cadena, los remanentes los ignora. Cambie la lí- 
nea 10 a su estado original. 


La función RIGHTf$ trabaja igual que la anterior, pero 
desde la derecha, para demostrarlo cambiaremos la línea 


40: 

40 FRINT RIGHTS (S$,N) 

RUN 

Ahora ejercitaremos con la función MID$ cambiando la 
línea 40: 

40 FRINT MID$(S$,N, 1) 

RUN 


Metódicamente borre la cadena de izquierda a derecha 
tomando una letra a su tiempo. Aquí lo hemos relentizado 
con un bucle de retardo en la línea 50 para que se pueda 
ver mejor su ejecución. 


Con solamente un cambio mínimo, podemos hacer que 
la función MID$ actúe como la función LEFT$ haciendo 
un cambio en la línea 40: 


40 FRINT MID$(S%,1,N) 
RUN 


Se imprimen N caracteres empezando por el número 
uno a la izquierda. 


Esta función MID$ también puede simular a la función 
RIGHT*$, cambiando la línea 40: 


40 FRINT MID$(S$, 18-—N, N) 
RUN 
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Ahora seleccionaremos una posición específica en la ca- 
dena imprimiendo su carácter, y para eso deberemos en- 
trar el siguiente programa: 


NEW 
1 CLS: FRINT 
10 INFUT "QUE CARACTER + DESEA IMPRIMIR"3 N 
ZO S$ = "JOSE ESTUDIO AQUI" 
40 PRINT MID$(S$,N, 1) | 
SÓ FOR T = 1 TO 500: NEXT T 
SÓ FRINT: LIST 
RUN 
Y para terminar con esta sección, asignaremos a una de 
estas sentencias una variable, y ésta puede usarse como 
comprobación de las otras. Cambie lo siguiente: 


40 V% = MID$(S$,N, 1) 
45 PRINT V$ 


EJERCICIO 25-1 

Escriba un programa donde se haga una pregunta como 
«ESTE ES UN ORDENADOR INTELIGENTE», y entrando 
como contestación SI o NO. Si el primer carácter de la res- 
puesta es S, deberá imprimir AFIRMATIVO, pero si el pri- 
mer carácter de la respuesta es N deberá imprimirse NE- 
GATIVO. En el caso que el primer carácter no fuese S o N 
deberá imprimirse ESTO NO ES UNA PREGUNTA DE SI O 
NO y devolver el control a la sentencia INPUT. 


EJERCICIO 25-2 

Escriba un programa donde se lean (READ) los siguien- 
tes números de piezas: NI06WT, A208FM y Z154DX, usan- 
do la función MID$ para encontrar los números y almace- 
narlos en una cadena (caracteres del 2-4), reportando el nú- 
mero de pieza con el valor numérico mayor. 
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CAPITULO 26 


Funciones de Pantalla 


La pantalla de este Computador es muy parecida a una 
retícula de malla cuadrada con puntos de imagen (Pixels) 
que se pueden ejecutar por separado. Cada uno consta de 
un cierto número de bits en un área de memoria, y todo 
depende del modo en que se programe la pantalla. 


Hay dos formatos de pantalla, una de Textos, y otra de 
gráficos. Para la primera, ésta se divide en un cierto núme- 
ro de carácteres o símbolos imprimiéndolos en la pantalla. 
Para el formato de gráficos se especifica individualmente 
cada punto de imagen incluyendo la facilidad para dibujar 
líneas así como determinar ciertos colores. 


Comandos y funciones 


BORDER: Fija el color del borde de la pantalla usando 
la tabla de colores que viene en su manual. 


CLG: Su misión es de borrar la pantalla en modo gráfi- 
co. 


CzlS: Borra la pantalla en modo de texto. 
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DRAMW: Su misión es la de trazar una línea recta en el 
modo de gráficos hasta una posició n absoluta. 


DRAWR: Su misión es la de trazar una línea recta en el 
modo de gráficos hasta una posición relativa. 


INK: Fija el color de la tinta. 


LOCATE: Coloca al cursor en una posición con las dos 
coordenadas (vertical y horizontal). 


MODE: Modifica el modo de pantalla. Existen tres mo- 
dos de pantalla: 


MODE 0 que corresponde a 25 líneas de 20 caracteres 
cada una, o 160 puntos de ancho por 200 de al- 
tura, así como 16 tintas posibles (4 bits por pi- 
xel). 

MODE 1 corresponde a 25 líneas de 40 caracteres cada 
una, O 320 punto de ancho por 200 de altura, 
así como 4 tintas disponibles (2 bits por pixel). 

MODE 2 fija 25 líneas de 80 carácteres cada una, o 640 
puntos de ancho por 200 de altura, así como 2 
tintas disponibles (1 bit por pixel). 


MOVE: Mueve el cursor en modo gráfico hasta una po- 
sición absoluta. 


MOVER: Mueve el cursor en modo gráfico hasta una 
posición relativa. 


ORIGIN: Coloca el origen de las coordenadas para 
modo de gráficos. 


PAPER: Coloca el color del papel o fondo de pantalla. 


PEN: Coloca el color de la pluma o color de los caracte- 
res. 


PLOT: Dibuja un punto en pantalla en modo de gráficos 
en una posición absoluta. 


PLOTR: Dibuja un punto en pantalla en modo de gráfi- 
cos en una posición relativa. 
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POS: Posiciona horizontalmente el cursor en modo de 
textos. 


SPEED INK: Coloca la velocidad de parpadeo de las 
tintas. 


SYMBOL: Coloca la matriz de los caracteres definidos 
por el usuario. 


SYMBOL AFTER: Coloca como caracteres definibles 
por el usuario los de después del dado. 


TAG: Fija el modo de texto en el cursor de gráficos. 


TAGOFF: Quita el modo de texto en el cursor de gráfi- 
cos. 


TEST: Número de tinta usada para un gráfico con coor- 
denadas absolutas. 


TESTR: Número de tinta usada para un punto en modo 
gráfico con coordenadas relativas. 


VPOS: Posición vertical del cursor de textos. 


WINDOW: Coloca la pantalla para una proyección de 
texto. 


WINDOW SWAP: Cambia la pantalla correspondiente 
a los dos cauces. 


XPOS: Posiciona horizontalmente el cursor de gráficos. 
YPOS: Posiciona verticalmente el cursor de gráficos. 


El color con que aparecen los pixels (puntos) de imagen 
por los comandos PLOT, DRAW o TAG, depende del 
modo de tinta para gráficos que pueden ser uno de los 
siguientes: 


NORMAL: Color de tinta nueva. 

XOR: Color O-lógico exclusivo entre las tintas nuevas y 
viejas. 

AND: Color Y-Lógico entre las tintas nuevas y viejas. 

OR: Color O-lógico entre las tintas nuevas y viejas. 
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Dado que no se puede meter en este Capítulo todos los 
ejemplos que desearíamos mostrarle, con relación a estos 
comandos, solamente les orientaremos con estos dos pro- 
gramas, la capacidad del manejador de pantalla y los efec- 
tos que se pueden conseguir. 


En el primer programa, se ilustrará cómo los comandos 
de PEN y PAPER se pueden usar para especificar colores 
específicos usados en diferentes ventanas o pantallas. 
Siempre que Vd. quiera usar diferentes colores para los co- 
mandos de PEN y PAPER, comprobar los colores primero 
para ver si son compatibles. 


A continuación escribiremos este programa para de- 
mostrar este efecto, y así Vd. podrá modificarlo para com- 
probar su efecto en pantalla. 


10 EORDER O 
20 WINDOWR1,1,40,3,5 

30 WINDOWH2,1,40,7,10 

40 WINDOWR3,1,19,11,24 

50 WINDOWR4,20,20,11,24 

60 A$="ESTO ES UNA PRUEBA PARA VER EL EFECTO DE LA VENTANA. " 
70 PAPER$1,0 

80 PAPER$Z, 1 

90 PAPER$Z, 2 

100 PAPERRK4, 3 

110 PENH1,3 

120 PEN$Z2, 2 

130 PENH3, 1 

140 FENH$4,0 

150 CLS 

160 FOR N = 1 TO 4 

170 PRINT $ N, A$: NEXT 


El otro programa, se refiere a los efectos que se pueden 
producir para falsear una palabra, o conjunto de palabras, 
y así poder llamar la atención de alguna cosa. Este tipo de 
rutina, le será muy práctico para que Vd. pueda impreso- 
nionar a los amigos cuando desarrolle sus programas 


NEW 
10 CLS 
20 INK 2,6,8 
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350 
40 
50 
60 
7O 
80 
90 
RUN 


INK 3,12,19 

PEN 2 

PRINT: FRINT "MUCHA ATENCION!!!" 
PRINT:PRINT:PRINT 

PEN 3 

PRINT "MATERIAL PELIGROSO!!!" 
PEN 1 


CAPITULO 27 


GRÁFICOS 


Los gráficos de este Computador son uno de los mejo- 
res, en comparación con otros equipos. En este Capítulo 
cubriremos los diferentes aspectos de creación de gráficos 
sin usar la sentencia PRINT ni la función CHR$. 

Los puntos con que el Computador trabaja se les llaman 
PIXELS, y cada uno de ellos que el Computador controla, 
corresponden al tamaño de varios puntos de un Televisor 
normal. 


En el modo de gráficos, todos, los comandos hacen uso 
de las coordinadas del sistema X e Y, las cuales también se 
usan con el comando LOCATE, que sirve para colocar el 
cursor en un sitio de la zona de pantalla comenzando en la 
esquina superior izquierda, que corresponden a la coordi- 
nada X (eje horizontal) e I (eje vertical): 


LOCATE X, Y 


Para demostrar su acción, escribiremos un programa, 
ejecutándolo y viendo su resultado: 


NEW 
10 CLS 
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20 MODE 1 

30 LOCATE 20,12 
40 PRINT CHR$ (240) 
RUN 


Una vez ejecutado, verá que aparece un símbolo gráfico 
en el centro de la pantalla, correspondiendo la numeración 
de este comando a los siguiente: 

El número 20 de LOCATE es la coordenada horizontal 
(X) en la gama de 1 a 40. 

El número 12 de LOCATE es la coordenada vertical (Y) 
en la gama de 1 a 25. 

El número 240 de la función CHR$ corresponde al sím- 
bolo que aparece en la pantalla. En vez de usar PRINT 
CHR$, Vd. puede poner una frase en cualquier sitio dela 
pantalla usando PRINT». He de aclarar, que esta función 
de LOCATE no se puede usar para formatear la salida por 
impresora de papel. 


Hay que tener en cuenta cuando se marcan estas coor- 
' dinadas, en qué modo de pantalla se encuentra. 


Para todos los modos de gráficos, el rango de X es de 0 
a 399 siendo muy conveniente dado que si Vd. hace un pro- 
grama de gráficos en un tipo de modo, y desea ejecutarlo 
en otro modo, no tendrá que revisar todo el programa cam- 
biando la numeración. 


Las siguientes normas, le ayudarán a dibujar un mapa 
de gráficos usando un papel gráfico: 


1— Tome un papel milimetrado tamaño A4 en cm o 
mm. 
2— Numere la coordenada X (horizontal) en saltos de 
25, hasta 600, y la coordinada y (vertical), también en saltos 
de 25, hasta 400. 

3.— Usando papel transparente (tipo cebolla), póngalo 
encima del papel mifímetrado, dibujando el gráfico desea- 
do y leyendo sus coordenadas. 
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Plotting 


Un gráfico es una serie de puntos que en su conjunto se 
convierten en una información gráfica. Existen dos coman- 
dos para crear esta información, PLOT y PLOTR, diferen- 
ciándose entre ellos dado que el comando PLOT usa coor- 
denadas absolutas, y PLOTR usa coordenadas relativas a 
la posición del cursor. Por ejemplo, si Vd. usa PLOT 0,0 el 
plot estará en el punto 0,0 o sea en la esquina inferior iz- 
quierda, pero si usa PLOTR 0.0 el plot estará donde esté el 
cursor en ese momento. 


En el siguiente programa se demuestra cómo se pueden 
dibujar tres gráficos al mismo tiempo, a una velocidad ra- 
zonable: 


NEW 
10 MODE O 

20 INE 0,0 

30 FOR X = 1 TO 639 

40 Y = 200 + 200 * SIN (2xPIXX/639) 


50 PLOT X, Y, 1 

60 Y = 200 + 200 *k (SIN (2xXFIXX/639)" 2) 
70 PLOT X, Y, 2 

BO Y = 200 + 200 * (SIN (2xXPIXX/639)" 3) 
90 PLOT X, Y, 3 

100 NEXT 

110 GOTO 110 

RUN 


Examinaremos las partes más esenciales del programa: 

En la línea 30 se establece los diferentes valores para X, 
para que cubra toda la pantalla, y para cada valor de X, son 
calculados tres valores de Y en las líneas 40, 60 y 80. Cada 
valor se obtiene del seno del ángulo con un valor en radia- 
nes de X/639, el otro se obtiene del cuadrado del seno de 
ese ángulo, y el tercero se obtiene del cubo del seno del án- 
gulo. Dicho seno tiene un valor que está entre —1 y +1, así 
pues como el valor de 1, en la dirección Y no significa 
nada, lo multiplicaremos por 200, por lo tanto el seno ten- 
drá un valor entre -200 y +200. Dado que no podemos ha- 
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cer un plot de -200 en pantalla, añadiremos 200 a cada va- 
lor teniendo un valor que variará entre O y 400 para Y. El 
otro punto es que usamos como ángulo 2 * PI * X/639 para 
poder hacer mediciones en radianes. Estas funciones de 
ángulo tienen un rango de valores que van de cero radia- 
nes a 2 * PI radianes. Cuando X =0, 2 * *PI * X/639 será 
cero radianes a la parte izquierda del gráfico, cuando X = 
639 en la parte derecha del gráfico, el ángulo será 2 * PI * 
639/639 que será 2 * PI radianes. 


Una vez ejecutado este programa, podrá hacer pruebas 
cambiando la resolución de pantalla, modificando la línea 
10 con los modos MODE 1 y MODE 2, viendo así los resul- 
tados. 


Dibujando líneas 


Hay dos comandos para realizar esta función, MOVE y 
DRAW, el primero, como puede imaginárselo por su nom- 
bre, mueve el cursor de gráficos, pero como no puede verlo 
por ser invisible, Vd. no verá nada cuando este comando se 
ejecuta. El segundo dibuja la línea deseada, usando tanto el 
primer comando como éste, los mismos número de coorde- 
nadas X e Y que se usaron con el comando PLOT, además 
el comando DRAW usa un tercer número destinado a la 
tinta (INKPOT). 


Escribamos un programa como ejemplo, para ver sus 
efectos en pantalla: 


NEW 

10 ON BREAK GOSUE 1000 
20 MODE O 

30 MOVE 150,100 
40 DRAW 150,300 
50 DRAW 450,300 
60 DRAW 450,100 
70 DRAW 150,100 
80 GOTO 80 

1000 MODE 1 
1010 LIST 

RUN 
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Este programa no es nada elaborado, y lo único que 
hace es dibujar un cuadrado en la pantalla. La razón por la 
que no hemos puesto ningún número de tinta en los co- 
mandos de DRAW, es que el color que hemos usado es el 
mismo que había la última vez que se usaron los comandos 
DRAW o PLOT. 


Como podrá Vd. comprobar, la instrucción de la línea 
10, se ha puesto para que si quiere salirse del programa y 
listarlo, pulsando dos veces a la tecla ESC, el Computador 
pase a modo de pantalla MODE 1 para facilitar su lectura, 
dado que en MODE 0 es un poco difícil. 


Otra variación de este programa es el siguiente: 


NEW 

10 ON BREAK GOSUE 1000 
20 MODE O 

30 MOVE 150,100 
40 DRAWR 0,200,2 
50 DRAWR 300,0,2 
60 DRAWR 0,-200 
70 DRAWR -300,0 
80 GOTO 80 

1000 MODE 4 

1010 LIST 

RUN 


En este programa se usa el comando DRAWR para di- 
bujar un cuadrado usando además número de color. 


Dibujando círculos 


Dado que el dibujo consiste en líneas rectas más o me- 
nos largas, para algunos tipos de dibujos como, círculos, 
elipses y arcos se necesitarían otros comandos. Este 
Computador no tiene el comando de CIRCLE ni ningún 
otro para rellenar de color dicha figura, así pues se deberá 
usar los comandos de líneas. Para demostrar cómo se pue- 
de dibujar un círculo, escribiremos el siguiente programa: 
NEW 
10 MODE 1 
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20 ORIGIN 320,200: R = 100 

20 GOSUR 1000 

40 ORIGIN 0,0 

50 GOTO 50 

1000 DEG 

10106 FOR M = 1 TO 360 

1020 FLOT R * SIN (N), R *X COS (N), 2 
1030 NEXT 

1040 RETURN 

RUN 


En la línea 20 se centra el círculo como origen, así como 
se le da un valor del radio R. 

La línea 30 se llama a la subrutina para dibujar el círcu- 
lo, siendo ésta la de la línea 1000 DEG que coloca los ángu- 
los que han de usarse en unidades de grados. 

La línea 1010 da comienzo el bucle que permitirá el di- 
bujar el círculo. 


Este programa se ejecuta muy lentamente, así pues pon- 
dremos una alternativa para acelerar su ejecución, que 
será la siguiente: 


NEW 

10 MODE 1 

20 ORIGIN 320,200: R = 100 

30 GOSUR 1000 

40 ORIGIN 0,0 

s0 GOTO 50 

1000 DEG 

1003 MOVER 0,R 

1010 FOR N = O TO 360 STEP 10 
1020 DRAW R *X SIN (N), R *X COS (N) 
1030 MEXT 

1040 RETURN 

RUN 


Animación con la tinta (INK) 


Un método muy práctico de animación de un dibujo, es 
el usar el comando INK. Supongamos que lo que quere- 
mos animar es un dibujo que usa la función CHR$, pero se 
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usa los comandos DRAW y MOVE, naturalmente Vd. po- 
drá dibujar una figura, borrarla, y volverla a dibujar en 
otro sitio. Un método más comodo es el usar el comando 
INK, con el cual si se le está cambiando su color al mismo 
que el fondo de la pantalla, el dibujo desaparecerá y apare- 
cerá cada vez que cambiemos de color, así de simple. 


Para demostrar este efecto de «tinta invisible», escribi- 
remos el siguiente programa: 


NEW 
10 MODE O 

20 FOR CL = 2 710 15 
30 INE CL,l: NEXT 

40 FOR NR = 1 TO 4 

50 READ X.Y: MOVE X,Y 
60 FOR LN = 1 TO 4 


70 READ X,Y 
80 DRAW X, Y, NR+1 

90 NEXT: NEXT 

100 WHILE INKEY (47) 
110 FOR NR = 2 T0 5 
115 CALL £BD19 

120 INE NR, 2 

130 FOR X = 1 TO 30: NEXT 

140 INE NR, 1 

150 NEXT 

160 WEND 

170 DATA 300,300,350,300,350,100,300,100,300,300 
180 DATA 385,288,415,252,270,113,235, 148.385, 288 


190 DATA 225,275,425,225,425,175,225,175,225,225 


t 
I 
pan 


200 DATA 230, 25959,275,4293,410,148,377,110,230,200 
210 MODE 1: END 
RUN 


La primera parte de este programa, pone los colores de 
2 a 15 al color del fondo de la pantalla que es el número 1. 
Las líneas de la 40 a la 90 dibujan cuatro rectángulos, sien- 
do uno vertical y los otros tres desplazados 45 grados con 
relación al primero. El bucle comienza en la línea 100 con- 
tinuando hasta que Vd. presione la barra de espacio. He- 
mos introducido la línea 115 con la función CALL £BD19 
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para que el dibujo se ejecute mejor, pero si quiere ver el 
efecto de esta función, quite esta línea y verá lo que pasa. 


En este Capítulo, realmente no se ha cubierto todas 
las posibilidades que tiene este Computador en sus funcio- 
nes de gráficos, pero hemos cubierto algunos aspectos muy 
interesantes. 
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CAPITULO 28 


FUNCIONES MATEMATICAS 


En algunos casos donde los números son enteros (entre 
-32768 y +32767), la ejecución puede ser aumentada decla- 
rándolos ser números enteros usando el signo % o la sen- 
tencia DEFINT. Entre el siguiente programa: 


NEW 

20 FOR N = 1 TO 4000 
30 NEXT ON 

90 PRINT: LIST 

RUN 


Observando el tiempo de ejecución de este programa, 
veremos que tardan los 4000 pases del bucle FOR-NEXT 
aproximadamente unos 10 segundos. A continuación hare- 
mos que N sea un entero, añadiendo la siguiente línea al 
programa: 


10 DEFINT N 
RUN 


Comprobará que el tiempo se ha reducido a unos 7 se- 
gundos, dado al aumento de los 400 pases por segundo a 
570 pases. 
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La función de conversión CINT (++) convierte un núme- 
ro a precisión entera. Entre este nuevo programa y ejecúte- 
lo: 

NEW 

1 CLS: PRINT 

20 X = 12345.67890 

30 FRINT X 

60 FRINT CINT(X) 

90 FRINT: LIST 

RUN 


Lo que aparece en pantalla es lo siguiente: 


12345. 67890 

12345 

La línea 30 imprime el número del valor X, que es el 
mismo que el de la línea 20 

En la línea 60 se imprime el entero del valor X, dando 
el mismo resultado que cuando se usaba la sentencia INT. 


Ahora cambiemos el valor X a negativo y veremos lo 
que pasa: 

20 X = -12345.67890 

RUN 


Otra vez se consigue el mismo resultado que cuando se 
usaba la sentencia INT, la cual redondeaba la cifra a 
-12346. 


El Basic incluye un número de funciones matemáticas, 
las cuales son muy sencillas y fáciles de usar, pero si sus 
nociones de matemáticas no son muy buenas, deberá re- 
frescar su memoria para poder entenderlas. 


INT (N) 


Hemos estudiado la función INT en detalle en otro Ca- 
pítulo, así pues no cubriremos aquí este tipo de función. 


FIS (N) 
La función FIX, es muy parecida a la de INT, con la 
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única diferencia que en vez de redondear los números ne- 
gativos hacia abajo, desestima todo lo que hay a la derecha 
del punto decimal. Vea en este simple ejemplo la diferen- 
cia: 


FRINT INT (-12:345.67) 
produce -12:346 
FRINT FIX(-12345,67) 
produce -12:3453 

SOR (NN) 


Esta función lo único que produce es una raíz cuadrada. 
Entre el siguiente programa: 


NEW 


10 INFUT "LA RAIZ CUADRADA DE"¿ N 
20 FRINT "ES "3 ¡SOR(N) 


30 FRINT 
40 GOTO 10 
RUN 


Otra forma de conseguir la raíz cuadrada de un número 
es usando el símbolo de la flecha hacia arriba (”), natural- 
mente significa «elevada a la potencia». Encontrar la raíz 
cuadrada de un número, es lo mismo que elevar a la poten- 
cia de 1/2. Cambie la línea 20 a: 


20 PRINT "ES "z NE (1/2) 
RUN 


El problema está cuando queremos saber que la res- 
puesta es correcta, con lo cual pondremos unas líneas al 
programa que harán que la raíz pase a la potencia de 21. 
Entre este programa para demostrarlo: 


NEW 
10 INFUT "LA RAIZ VENTIUNAVA DE"z N 
15 R = NC(1/21) 

20 PRINT "ES "¿ R 
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ZO FRINT 

ZA OFRINT Ri "A LA POTENCIA DE 21 = "z¡ RE21 
Zó FRINT 

406 GOTO 10 

RUN 


EJERCICIO 28-1 

Pitágoras descubrió que los lados de un triángulo rec- 
tángulo obedecen a la siguiente fórmula: C[2 = A[2 + BL2, 
donde C es el lado más largo (hipotenusa). Otra forma de 
expresar esta fórmula es que la longitud del lado C es igual 
a la raíz cuadrada de la suma de los lados rectos A y B. Si A 
=5 y B=12, escriba un programa para calcular la longitud 
del lado C 


ABS (N) 


El valor absoluto tiene que ver mucho con los signos o 
sin ellos, dado que el valor absoluto de cualquier número, 
es un número sin signo. Si Vd. lo ha olvidado, este progra- 
ma la refrescará la memoria. 


NEW 

10 INPUT "ENTRAR UN NUMERO "3 N 
20 A = ABS(N) 

ZO PRINT A 

40 ERINT 

50 GOTO 10 

RUN 

LOG (N) 


Un logaritmo (LOG) es un exponente de una base de un 
número. El sistema LOG está centrado alrededor de lo que 
se llama logaritmos naturales, que usa el número 2.718282 
como base. Algunos Basic tienen una segunda opción de 
LOG usando 10 como base, como en nuestro sistema deci- 
mal. 


Entrar el siguiente programa: 


122 


122 La biblia del AMSTRAD 


NEW 
10 IMPUT "ENTRE UN NUMERO FOSITIVO"; N 
20 L = LOGIN) 


ZO PRINT "EL LOGARITMO DE"; N ;"A LA BASE NATURAL ES ="¿ L 
40 FRINT 
50 GOTO 10 


RUN 


Entrar el número 100, y obtendrá una respuesta de 
4.60517, lo que significa que 2.718282 es la potencia de 100 
del número 4.60517. 


EXP (N) 


La función EXP también se la conoce como lo opuesto 
a LOG, y calcula el resultado de elevar el número a una po- 
tencia dada. Si se usan números mayores de 88, el Compu- 
tador dará un ERROR de rebasamiento, así como si se usa 
EXP con números menores que -88.7, hace que se llegue al 
límite por defecto, y por lo tanto se producirá un valor 
cero. 

Para demostrar esta función, entre el siguiente progra- 
ma: 


NEW 
10 INFUT "ENTRE UN NUMERO"; MM 
20 A = EXF(N) 


ZO FRINT "2.718282 ES FUESTO A" N ¡¿"FOTENCIA = "3 A 
40 FRINT 

50 GOTO 10 

RUN 


Como prueba de su programa, entre el siguiente núme- 
ro: 
4.60517 


La base de un logaritmo natural puesto a esta potencia 
será igual a 100. 


EJERCICIO 28-2 

Escriba un programa donde las dos funciones (LOG y 
EXP) en orden opuesto, usando valores de N positivos y 
negativos (LOG (EXP) (N) =N). 
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CAPITULO 29 


FUNCIONES TRIGONOMÉTRICAS 


En este Capítulo no vamos a entrar de lleno en materia 
Trigonométrica, sino que solamente trataremos las funcio- 
nes de SIN, COS, TAN, y ATN, para el cálculo de los ángu- 
los de un triángulo por medio de un Computador. 


En el triángulo que tenemos, el 
seno (SIN) del lado A es igual al 
lado a dividido entre el lado c y el 
coseno (COS) es igual al lado b divi- 
dido entre el lado c, así como la tan- 
gente es también igual al lado a divi- 
dido entre el lado b. 


SIN A = a/c 


COS A b/c 


TAN A = a/b A b e 


Tomando esta relación podemos encontrar la propor- 
ción si sabemos el ángulo correspondiente, y para eso, es- 
cribiremos un programa: 
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NEW 
10 INPUT "ENTRE LOS GRADOS DE UN ANGULO ENTRE O Y 90"; A 
20 S = SIN(A *X 0.0174533) 


3O FRINT "EL SENO DE UN ANGULO DE "¿ A 5" GRADOS ES "3 S 
40 FRINT: GOTO 10 
RUN 


Pruebe introducir los siguientes ángulos, 45, 30, 60, 90, O, 
etc. Para la persona que no esté muy fuerte en trigonome- 
tría, encontrará rara la línea 20, y la razón es que los 
Computadores no miden los ángulos en grados, si no que 
su medida la hacen en radianes, siendo esta unidad igual a 
57 grados aproximadamente, y la función de SIN no fun- 
cionará correctamente sin esta conversión. 


Así pues para convertir grados a radianes, se deberá 
multiplicar los grados por 0.0174553 


De la misma forma, para convertir radianes a grados, se 
deberá multiplicar los radianes por 57.29578 


El coseno (COS) y la tangente (TAN) actúan de la mis- 
ma forma, por lo que cambiaremos el programa residente 
de la siguiente manera: 

NEW 


10 INPUT "ENTRAR UN ANGULO ENTRE O Y 90 GRADOS"; A 
20 T = TAN(A k 0.0174533) 


30 PRINT "LA TANGENTE DE UN ANGULO DE "; A 3" GRADOS ES"; T 
40 PRINT: GOTO 10 
RUN 


Así mismo el cálculo del coseno de un ángulo se podrá 
calcular cambiando las líneas 20 y 30: 


20 C = COS(A k 0.0174533) 
30 PRINT "EL COSENO DE UN ANGULO DE "; A 3" GRADOS ES"3 C 
RUN 


El siguiente programa, imprimirá las tres funciones tri- 
gonométricas al mismo tiempo. Notará que en la línea 30 
se divide la entrada entre 57.29578 en vez de multiplicarse 
por 0.0174533, siendo su resultado el mismo. Entre el si- 
guiente programa: 
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NEW 

10 CLS 

20 INFUT "ENTRAR UN ANGULO ENTRE O Y 90 GRADOS"; A 
50 A = A / 57.29578 

40 FRINT 

SO FRINT "ANGULO", "SENO", "COSENO", "TANG" 

60 PRINT A *x 57.29578, SIN(A), COS(A), TAN(A) 

70 INFUT "DESEA HACER OTRO CALCULO (S/N)"; E$ 

80 IF R$ = "S" GOTO 20 THEN END 

RUN 


Funciones trigonométricas inversas 


Lo opuesto para encontrar la relación entre dos lados 
de un triángulo cuando se conoce un ángulo, es calcular el 
ángulo cuando la relación entre los dos lados se conoce. En 
trigonometría, hay tres funciones que se conocen, pero los 
Computadores sólo admiten una, la cual se la denomina 
ATN (Arco de una Tangente). 


En este programa, el Computador toma el ángulo entra- 
do, imprime su tangente, tomando este resultado y lo 
computariza en arco de ángulo como comprobación. La le- 
tra 1 se usa en este programa dado que el arcotangente es 
el Inverso de la tangente. Entre el siguiente programa: 


NEW 

1 CLS 

10 REM * DEMOSTRACION DE ATN * 

20 INPUT "ENTRAR UN ANGULO ENTRE O Y 90 GRADOS"; A 
50 T= TAN(A / 57.29578) 

40 PRINT "TANGENTE = "3 T, 

50 1 = ATN(T) k 57.29578 

60 PRINT " ARCO DE LA TANGENTE = "; 1 

70 PRINT: GOTO 20 

RUN 


Si Vd. es una de esas personas que están familiarizados 
con la trigonometría conocerá las otras dos funciones in- 
versas, ARCSIN y ARCCOS, pero dado que hay personas 
que se formarán un lío tremendo, usaremos las siguientes 
conversiones para crear este simple programa que si le in- 
teresa podrá salvarlo en cinta. Entre el siguiente programa: 
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10 CLS: REM *k PROGRAMA DE DEMO DE FUNCIONES INVERSAS k* 
20 INPUT "ENTRE LA RELACION DE LOS DOS LADOS DE UN TRIANGULO"; R 
30 AS = 2 *k ATN(R/ (1+SOR(ABS(1-RXR)))) k 57.29578 

40 AC = 90 - AS 3 PRINT 

SO PRINT "RELAC", "ARCSEN", "ARCCOS", "ARCTAN" 

60 PRINT "(NUM)", "(GRAD)", "(GRAD)", "(GRAD)" 

70 1F ABS(R) > 1 THEN 100 

80 PRINT R, AS, AC, ATN(R) *x 57.29578 

90 PRINT: GOTO 20 

100 PRINT R, "U", "U", ATN(R) k 57.29578 

110 PRINT: GOTO 20 

RUN 


Recuerde, mientras que la Tangente puede ser cual- 
quier número, cuando la relación se mueve fuera de -1 a 1, 
el Seno y Coseno no son definidos. Además, el ARCTAN y 
ARCSIN producen un ángulo entre -90 y 90 grados, pero 
el ARCCOS tiene una relación entre O y 180 grados. 


127 


La biblia del AMSTRAD 127 


CAPITULO 30 


EL SONIDO 


En este Capítulo cubriremos algunos aspectos de la ge- 
neración de sonidos con este Computador, que además tie- 
ne un altavoz incorporado para reproducir dichos sonidos, 
así como se le puede conectar a un equipo de Alta Fideli- 
dad para una reproducción mejor. 


Empezaremos con un simple comando para generar un 
sonido que le podrá ser muy útil para llamar la atención en 
un programa donde le recuerde que el programa le está es- 
perando. Introduciendo PRINT CHR$ (7), el Computador 
producirá un tono de corta duración. 


Entremos un programa para demostrar los sonidos el 
cual será examinado a continuación: 


10 CLS: PRINT TAR(19) "MENU" 

20 PRINT: PRINT TAB(3)"1. MUSICA" 

30 FPRINT TAR(3)"2. EXPLOSION" 

40 PRINT TAB(3)"3. RUIDO DE AGUA" 

50 PRINT TAR(3)"4. MOTORES" 

60 PRINT: PRINT"SELECCIONE UN NUMERO" 

70 GOSUR 1000 

80 IF J<1 OR J>4 THEN PRINT "NUMERO INCORRECTO, FRUEBE OTRA VEZ": GOTO 


90 ON J GOSUB 500,500, 500, 500 


128 La biblia del AMSTRAD 


100 END 
500 PRINT "EN ESTA POSICION PODRA INTRODUCIR SU PROGRAMA": FRINT 


510 RETURN 
1000 K$ = INKEYS: IF K$ <5"" THEN J = VAL (K$): RETURN 
1010 PRINT CHR$(7)3: FOR N = 1 TO 500: NEXT 


1020 GOTO 1000 
RUN 


Una de las líneas más importantes de este programa es 
la línea 1000, la cual usa una función INKEYf$ que la trata- 
remos de explicar en sucesivos Capítulos. Por consiguiente 
la línea 1000 detecta la tecla con K$ = INKEYf$, y si es pre- 
sionada J = VAL (K$) tomará el valor numérico para que 
se use en el resto del programa. La línea 1010 produce un 
corto sonido, usando PRINT CHR$ (7), el cual tiene un 
punto y coma al final para prevenir que la pantalla salte. 


Para producir sonidos, se deberá usar un comando sim- 
ple o uno complicado, dependiendo del tipo de sonido que 
Vd. desee obtener. En este Basic, la instrucción para pro- 
ducir sonidos es la de SOUND que deberá ir seguida de 
por lo menos dos números, donde el primero será el canal 
seleccionado, existiendo tres canales en este Computador, 
y colocando cada nota a un canal seleccionado. La tabla de 
canales la mostramos a continuación: 


No. seleccionado Canal (es) selecionados 


N DD Marin 
DoOUDODOD 


Como notará, los canales se les denomina como A, B y 
C pudiéndose seleccionar uno o más dependiendo del nú- 
mero seleccionado. Números mayores de siete, producirán 
efectos más complicados, los cuales los trataremos más 
adelante. 
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El segundo número que sigue en la instrucción SOUND 
corresponde al tono de la nota, controlando con una exten- 
sión desde 1 (tono más alto) al 4095 (tono más bajo), siendo 
la extensión más práctica la de 10 a 1000, dado que las no- 
tas por encima de 1000 producirán unos chasquidos en el 
altavoz. Las equivalencias musicales del número de notas 
se muestran claramente en su Manual en el Apéndice VII 
página 2. 


Empecemos nuestro estudio de la instrucción SOUND 
con una nota simple, introduciendo este programa: 


NEW 
10 SOUND 1,478,50 

20 FOR N = 1 TO 2000: MEXT 
ZO SOUND 1,478,100 

40 FOR N = 1 TO 2000: NEXT 
50 SOUND 1,478,200 

RUN 


En la línea 10 se selecciona el canal A y el tono de la 
nota con el valor 478, además del tiempo, que corresponde 
a un quinto de segundo. Cuando el Computador ejecuta la 
instrucción SOUND, extrae los números y pasa a su siste- 
ma de sonido, que está separado del resto, por.lo que el 
Computador seguirá ejecutando la siguiente línea que es 
un bucle de retardo, para poderse ejecutar la siguiente lí- 
nea de sonido, y así sucesivamente, dado que si pusiéramos 
todas las instrucciones de SOUND seguidas el sistema las 
mezclaría sin producir la nota deseada. 


El siguiente programa es una variación del primero me- 
jorándolo entre notas: 


NEW 

10 SOUND 1,478 

20 WHILE SQ(1)>*128: WEND 
350 FOR N = 1 TO 100: NEXT 
40 SOUND 1, 478,50 

S0 WHILE SO(1)>128: WEND 
60 FOR N = 1 "TO 100: NEXT 
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70 SOUND 1,478,200 
RUN 


La novedad en este programa está en la línea 20, donde 
SQ informa de la posición del sonido, igual que EXPOS in- 
forma la posición del cursor. SQ tiene un valor de por lo 
menos 128, que será comprobado por el bucle WHILE... 
WEND para hacer que el Computador espere a la línea de 
sonidos y así el siguiente comando no sea añadido hasta 
que el primero termine y conseguir una separación entre 
notas. 


El siguiente paso será el hacer un programa donde se 
reproduzca una escala musical, que en este caso será la de 
C Mayor. 


NEW 

10 CLS: FRINT TAB(13) "ESCALA DE C MAYOR": PRINT: PRINT 
20 FOR N = 1 TO 8 

SO READ nota 

40 SOUND 2,nota, 100 

SO NEXT 

60 FRINT "Ahora todas las notas estan en fila" 

100 DATA 478,426,379,358,319,284,253,239 

RUN 


A continuación pondremos una serie de programas 
para que Vd. practique y haga cambios, y así ver sus efec- 
tos, siempre ayudado de las tablas de su manual de usua- 
rio. 


El primer programa será una armonía usando los tres. 
canales. 


NEW 

10 FOR N= 1 TO 9 

20 READ C1,C2,C3,P 

3O SOUND 1,C1,P,7 

40 SOUND 2,C2,P,5 

50 SOUND 4,C3,P,5 

60 NEXT 

70 END 

500 DATA 478,319,956,100 
510 DATA 506,319,851,70 
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520 DATA 478,319,956,210 
530 DATA 426,319,851,70 
540 DATA 379,253,758,140 
550 DATA 319,268,638,70 
560 DATA 358, 284,716,70 
570 DATA 379,319,758, 100 
580 DATA 426,319,851,140 
RUN 
El siguiente programa demostrará cómo un generador 
de ruidos puede producir sonidos de efectos especiales. 


NEW 
10 CLS: FRINT "OLAS EN LA PLAYA" 

20 FOR N = 1 TO 10 

ZO FOR Y = 15 TO 1 STEP -1 

40 SOUND 2,0,20,7,0,0,3 

50 NEXT: NEXT 

60 FPRINT "MARTILLAR DE UN MARTILLO" 
70 FOR N = 1 TO 10 

80 FOR Y = 15 TO O STEP -1 

90 SOUND 2,0,5,3,0,0,1 

100 NEXT: NEXT 

RUN 


La sincronización 


Dado que nos estamos quedando sin espacio para la te- 
mática de los sonidos por Computador, pues se necesitaría 
todo un libro para cubrirla, llegamos al final de este Capí- 
tulo con la Sincronización de los sonidos. 


La sincronización se consigue usando los números de 
canales seleccionados, donde en la tabla que ponemos a 
continuación se muestran en su totalidad. 


Numero selec. Efecto 
8 Sincronizacion con el canal A 
16 Sincronizacion con el canal E 
ma Sincronizacion con el canal C 
64 Mantenido 
128 Limpia los buftfers de sonido 
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Así como los números que someten a las señales de so- 
nido a ir a los tres canales, hay tres números que causan la 
sincronización, uno que mantiene la nota esperando en la 
fila, otro que quita todo lo que hay en la fila y uno que ob- 
tiene rápidamente el silencio. Vd. puede conseguir más de 
un efecto a la vez, sumando todos los números. 


El siguiente programa demuestra este efecto: 


NEW 
10 SOUND 33,478,300 

20 FOR N = 1 TO 2000: NEXT 
ZO SOUND 12,379,300 

RUN 


La línea 10 es un comando de sonido, el cual en una for- 
ma ordinaria sonaría de una vez, pero haciendo el selector 
de canales igual a 33, consistirá en el 1 del canal A más el 
número 32 que es la sincronización con el canal C. Después 
del retardo, el siguiente comando de sonido sería para el 
canal C, pero como se usa el número de selección 12, esto 
causa que el número 4 del canal C más el 8 se realice la sin- 
cronización con el canal A. 


Como podrá comprobar, esto es realmente fácil aunque 
parezca difícil, así pues practique un poco y le cogerá el 
gusto a los sonidos. 
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CAPITULO 31 


LA FUNCION INKEY*$ 


La potente función INKEY$ nos habilita la informa- 
ción de la sentencia INPUT del teclado sin tener que usar 
la tecla de ENTER. 


Ejecute el siguiente programa para demostrarlo: 


NEW 

1 CLS 

10 1F INFKEYS = "T" THEN 30 

20 GOTO 10 

ZO FPRINT "VD. HA PRESIONADO LA TECLA *T*" 
40 GOTO 10 

RUN 


Cuando se ejecuta este programa, parece que el teclado 
se queda muerto hasta que se presiona la tecla «T». Una 
vez que la comprobación pasa en la línea 10, la ejecución se 
mueve a la línea 30, y se imprime un mensaje, volviendo a 
empezar el proceso. 


La forma que esta función trabaja es muy interesante, 
dado que el Computador busca una y otra vez la tecla que 
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se ha pulsado, y cada vez que se pulsa un tecla, ese carácter 
es almacenado en un área de su buffer, pudiendo tomar un 
carácter a la vez, o sea que cuando una tecla se pulsa, ese 
carácter reemplaza al anterior. 


Si deseamos que la comprobación cubra más de un ca- 
rácter, dado que esta función sólo comprueba uno sólo 
cada vez, se deberá escribir un programa para que realice 
este tipo de función. Añadir estas líneas al programa para 
ver su efecto: 


15 IF IFEYS = "P" THEN 50 
SO FPRINT "VD. HA PRESIONADO LA TECLA *P*": GOTO 10 
RUN 


Como Vd. puede comprobar, no tenemos ninguna res- 
puesta cada vez que una tecla se presiona; esto es dado 
porque el buffer del INKEY$ es reseteado a una cadena 
nula cada vez que esta función se usa. Liste (LIST) el pro- 
grama para ver cómo se limpia el buffer cada vez que se 
usa el INKEY$. 


Supongamos que se presiona la tecla T cuando la línea 
15 empieza su ejecución, esta letra irá al buffer y esperará 
hasta que otra tecla sea presionada. Como la línea 15 conti- 
nua su ejecución, la actual letra que está en el buffer (T) es 
comparada con la que se presiona (P), y dado que las dos 
no son iguales, el control pasa a la siguiente línea y vuelve 
a la línea 10. En esta línea se llama a la función INKEYf$, y 
cuando comprueba su buffer, la letra T no está dado que se 
ha limpiado. En el caso de que queramos preservar el valor 
de T, deberemos almacenarla en una cadena variable tem- 
poral. Cambie las líneas 10 y 15 para ver su efecto: 


10 A$ = INFEY$: 1F A$ = "T" THEN 30 
15 IF A$ = "F" THEN 50 
RUN 


Ahora conseguimos algo, dado que si igualamos la fun- 
ción INKEY$ a una cadena variable, podremos almacenar 
este valor por el tiempo que nosotros queramos. 
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Otra forma de usar esta función, es si el buffer no en- 
cuentra la tecla presionada, se dice que lee una cadena 
nula, y esta cadena se representa con dos comillas (” ”). El 
código ASCII para nulo es 0. 


Para ver qué rápido la función INKEYf$ hace la búsque- 
da, probaremos este nuevo programa: 


NEW 

10 K$ = INKEYS: IF K$ = "" PRINT "NO SE HA ENTRADO NADA" 
20 PRINT ,,, K$: GOTO 10 

RUN 


Entre cualquier carácter y verá lo que pasa con esta 
función. 


La idea general de cómo usar la función INKEY*$ es 
grandiosa, y solamente la experiencia y el uso continuado 
de ella, le podrá dar muchas satisfacciones, dado que sus 
prestaciones son muy prácticas. 


El siguiente paso es demostrarle con un programa más 
serio, lo que se puede hacer con esta función. Así que escri- 
biremos un programa donde Vd. tendrá que poner una cla- 
ve secreta para poder abrir una puerta electrónica y así po- 
der pasar a unas dependencias. La clave secreta es 1930. Y 
no deberá olvidarse el poner el punto al final de la cifra. 


10 CLS: PRINT "ENTRE LA COMEINACION" 

20 FRINT "SEGUIDO FOR UN PUNTO" 

30 FRINT "Y LA PUERTA SE ABRIRA" 

40 K$ = INKEYS: IF K$ = "" GOTO 40 

50 READ D$: IF D$ = "." GOTO 100 

60 IF D$ = K$ GOTO 40 

70 RESTORE: GOTO 40 

100 CLS: PRINT "VD. PUEDE ENTRAR, ESPERE QUE SE ABRA LA PUERTA" 
110 FOR T = 1 TO 2000: NEXT Tz RESTORE: GOTO 40 
1000 DATA 1,9,3,0,. 

RUN 


Una línea importante es la 40 que comprueba el buffer 
de la función INKEY$ buscando si hay algo más que una 
cadena nula, y si encuentra un carácter, la ejecución pasa a 
la línea 50. 


La línea 50 lee (READ) una parte de la DATA, y si en- 
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cuentra un punto, la ejecución pasa a la línea 100, pero si 
no lo encuentra, la ejecución pasa a la comprobación de la 
línea 60. 


La línea 60 comprueba si el carácter entrado es igual al 
leído (READ) de la DATA, y si es correcto el pase, la ejecu- 
ción vuelve a la línea 40 para esperar otro carácter del te- 
clado, pero si es lo contrario que el carácter no concuerda 
con el existente en la DATA, la ejecución pasa a la línea 70. 


En la línea 70, se restaura (RESTORE) el puntero de la 
DATA y vuelve al principio su ejecución, o sea a la línea 40 
para empezar todo de nuevo. 


Naturalmente Vd. podrá cambiar la palabra secreta a la 
que más le guste, con sólo modificar la línea de DATA 
1000, y así demostrar a sus amigos lo inteligente que es su 
Computador. 
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CAPITULO 32 


EL USO DEL PRINT USING 


Las expresiones formateadas, se evalúan una a una su- 
cesivamente, y se exponen a través de un cauce de acuerdo 
con la plantilla de formateo. Después de que se ha puesto 
cada expresión, se procesa la plantilla hasta encontrar una 
especificación adecuada de formato para dicho resultado. 
En el caso de no encontrarse el formato adecuado se pro- 
ducirá un tipo de ERROR 5. 


Hay que observar que el formato USING no efectúa se- 
paración de zonas de exposición ni comprobación de bor- 
des de cauce. 


Los caracteres de formateo de plantilla son los siguien- 
tes, y se describen más adelante: 


E PU: 


Cualquier otro carácter que se encuentre, el Basic lo sa- 
cará literalmente en pantalla. 


A continuación pondremos un ejemplo de cómo usar el 
PRINT USING con números. Entre el siguiente programa: 
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NEW 

10 A = 123.456789 

40 US = "HR 

50 PRINT USING U$; A 
90 FPRINT: LIST 

RUN 


La respuesta en pantalla será de: 


123, 46 


La cifra ha sido redondeada en dos decimales. Añada 
las siguientes líneas al programa residente: 


20 B=-= 1.6 
60 PRINT USING U$; E 
RUN 


La respuesta en pantalla será: 


12, 46 
1.60 


Lo primero que hay que notar, es que en el programa 
hemos llamado dos veces a la línea de formateo 40, una en 
la línea 50 y otra en la línea 60, y lo siguiente es que la dos 
cifras tienen los decimales alineados y en la segunda cifra 
se le ha añadido un cero para que se lea 1,60. 


Pongamos más líneas a nuestro programa: 


O C= 9876.54:321 
7O FRINT USING U$z C 
RUN 
La respuesta será: 
123.46 
1.60 
19876.54 
La razón por la que aparece el signo %, es por que se ha 


sobrepasado la línea de formateo, dado que la capacidad 
de la misma es de tres dígitos antes del punto, y la tercera 
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cifra tiene cuatro. Cambiemos la línea 40 para arreglar 
esto: 


40 Ub = "Ha RR 

RUN 

El siguiente paso por el PRINT USING, será el uso del 
signo del Dolar ($), así pues haremos otro cambio en nues- 
tro programa para ver sus resultados: 


40 UB = "EHHH AH" 
RUN 


El resultado será el siguiente: 


$ 123.46 
$ 1.60 
$9876, 54 


Pero supongamos que nosotros queremos que el signo 
del Dolar ($) aparezca inmediatamente al lado de la Cifra, 
tendremos que modificar la línea 40 para que se lea: 


40 US = "ESHHAR RES" 
RUN 


Entonces el resultado será: 
$123.46 


$1.60 
$98746, 54 


Hasta ahora hemos cubierto los siguientes puntos: 


1.— El signo + con el PRINT USIGN, imprime todos 
los decimales en un mismo sitio por cada tamaño de núme- 
ro impreso. 

2.— Redondea los decimales al número de signos ++ 
que se han puesto, pero no redondea las cifras a la izquier- 
da del punto decimal, mandando una indicación de error 
(%) si la cifra sobrepasa el número de campos. 

3.— Si se pone un signo de $ a la izquierda del campo 
de números, aparecerá alineado, lo mismo que aparece el 
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punto decimal. Este signo no aumenta el campo de carácte- 
res. 

4.— El uso de dos signos de Dólar ($$) a la izquierda 
del campo, hará que aparezca un signo $ inmediatamente 
al lado de la primera cifra de la izquierda. Uno de estos sig- 
nos ($) puede reemplazar a un ++, pero no aumentar su 
campo. 


Otra forma de uso de esta función, es la impresión de 
cheques bancarios, donde a Vd. no le interesa que se pueda 
alterar la cifra en el mismo, por lo que se ha pensado el in- 
troducir una variante. Si nosotros cambiamos la línea 40 
del programa residente: 


40 UE = "RRA A 
FUN 


La respuesta en pantalla será la siguiente: 
XX123, 460 
XXXxXx1,.00 
x9876.54 


Esto significa que, poniendo dos asteriscos al principio 
del campo, cualquier espacio en blanco delante de la cifra 
será sustituido con asteriscos (*). Pero si además queremos 
que aparezca el signo $ delante, habrá que modificar la lí- 
nea 40 otra vez (use el Editor y verá el tiempo que se aho- 
rra): 


40 Ub = "MKBHHA. HR 
RUN 


Aparecerá en pantalla lo siguiente: 


$123, 46 
x*x$1.60 
$9876. 54 


El siguiente paso, será el usar comas en el campo de ca- 
racteres, por lo que modificaremos de nuevo la famosa lí- 
nea 40 para poder conseguir este efecto: 
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AO LIE CO, AREAS 
RUN 


En la pantalla aparecerá lo siguiente: 


XXS123,46 
ARG 1.60 
$9,876.54 


Vemos que en nuestra pantalla sólo aparece una cifra 
con la coma, y eso quiere decir que la coma puesta antes 
de los campos numéricos sólo dividirán las cifras en gru- 
pos de tres. 


Escribiremos de nuevo nuestro programa residente, 
para que vea las capacidades del PRINT USING: 


NEW 

1 CLS: FRINT 

10 A = 123, 436789 

20 KR = 1,60 

30 C= 9876.0432 

40 US = "HR AA HARE A HA RES 


50 PRINT USING U$; A, E, C 
290 PRINT+* LIST 
RUN 

La información que aparece en pantalla, verá que se di- 
ferencia en que en esta ocasión las cifras están alineadas y 
separadas. 


Cadenas literales usando PRINT USING 
Los símbolos usados para las cadenas literales son los 
siguientes: 


¡ Hará que sólo saque el primer carácter 

in espacios lApárecerán los primeros n carácteres del 
dato literal, (habiendo por tanto n-2 espacios en blanco en- 
tre las barras inclinadas invertidas). 

$ Los datos literales se sacarán tal como son. 


El signo más común que se usa en este formato es el de 
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las barras inclinadas invertidas (Y), donde los espacios son 
equivalentes a los + cuando se usaban las cadenas numéri- 
cas, por lo que no entraremos de lleno en esta materia, y sí 
pondremos un programa donde se mezclen los dos tipos de 


cadenas. 


Entre el siguiente programa, y sálvelo en cinta para po- 


dérselo demostrar a sus amistades. 


NEW 

1 REM Xx CAMBIO DE MONEDA INTERNACIONAL X*X 

2 REM * CIFRAS AL MES DE JULIO DE 1985 *X 

S MODE 2 

10 CLS 

80 RESTORE: FRINT 

100 INPUT "CUANTAS FESETAS DESEA VD. CAMEIAR ";¿ D 
110 FRINT: FRINT TAB(18)"AL CAMBIO ACTUAL OBTENDRA": 
400 READ A$,A,EK$,Ez IF A$ = "FIN" THEN 80 

460 Fé = "Nx N HHHHHRRAH HA 
HAHHHHHH. HAS 

470 PRINT USING P$;45%$;D/A¡E$;D/R 

800 C = C+1l: IF C<i1 GOTO 400 

900 FOR T= 1 710 5003 NEXT Ts: C = O: PRINT: GOTO 400 
1000 DATA U.S.A. DOLAR, 173.84 

1010 DATA CANADA DOLAR, 128.01 

1020 DATA FRANCIA FRANCO, 18.79 

1030 DATA INGLATERRA LIERA, 228.01 

1040 DATA IRLANDA LIBRA, 179.51 

1050 DATA SUIZA FRANCO, 68.30 

1060 DATA RELGICA FRANCO, 2.84 

1070 DATA ALEMANIA MARCO, 57.23 

1080 DATA ITALIA LIRA, .0897 

1090 DATA HOLANDA FLORIN, 50.78 

1100 DATA SUECIA CORONA, 19.87 

1110 DATA DINAMARCA CORONA, 15.95 

1120 DATA NORUEGA CORONA, 19.88 

1130 DATA FINLANDIA MARCO, 27.357 

1140 DATA AUSTRIA CHELIN, 8.1453 

1150 DATA FORTUGAL ESCUDO, .998 

1160 DATA JAFON YEN, .7012 
1170 DATA AUSTRALIA DOLAR, 
1500 DATA FIN, O, FIN, O 
RUN 


116.44 


PRINT 


Como Vd. podrá observar en este programa, se mezclan 
tanto cadenas numéricas como cadenas literales, así pues 
es un buen ejemplo de cómo usar la función PRINT 


USING. 
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EJERCICIO 32-1 

Escriba un programa tomando como base el anterior 
ejemplo, donde al ejecutarlo aparezca el siguiente resulta- 
do, naturalmente usando la función PRINT USING. 


CREDITOS IMPUESTOS TOTAL 
COMPUTADORES S.A. 18.3 7 19.0 
ELECTRICAS S.A. 1.8 0 1.8 
COMPONENTES S.A. 7.2 .3 7.5 

TOTALES 28.3 
144 


144 La biblia del AMSTRAD 


CAPITULO 33 


LOS CONJUNTOS 


Sabemos, que en este mundo de la informática, se pue- 
den usar como variables cualquier combinación de las 26 
letras del abecedario, y cualquier dígito del O al 9. Asimis- 
mo sabemos que no hay ningún programa que use el total 
de combinaciones, aunque algunos programas requerirán 
un gran número de ellas, usando como nombres diferentes 
tipos de datos para almacenarlos, y luego poderlos recupe- 
rar fácilmente. 


La forma para resolver este problema es usando los 
CONJUNTOS, que son todos iguales con la única diferen- 
cia de su tamaño. Supongamos que tenemos placas de li- 
cencias del 1 al 10, y queremos usar el Computador para 
encontrar el tamaño del motor del vehículo a identificar. 
Esto no resultará nada difícil, pero antes de descubrir su 
potencial, aprenderemos paso a paso su desarrollo. 


Supongamos que tenemos las siguientes licencias y ta- 
maños de motores: 
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LICENCIAS MOTORES 


300 


1 
2 200 
a 500 
4 200 
á 200 
ó 300 
7 4060 
8 400 
o 300 
10 300 


Ahora podremos dar a cada coche un nombre de letra 
distinto, usando las variables de la A a la J, pero esto sería 
una pérdida de tiempo y espacio de memoria, porque si 
usáramos mil coches, ¿que haríamos con ellos? 


El Basic nos permite usar un nombre variable válido, 
como nombre de Conjunto, dado que el nombre del con- 
junto A no es lo mismo que la variable alfabética A y tam- 
poco es lo mismo que la variable de una cadena Af. Así 
pues a nuestra variable la llamaremos A-sub, nombrando a 
los coches como A (1) al A (10). 


Almacenaremos el tamaño de los motores de los coches 
en dos líneas de sentencias de DATA. 


NEW 
100 DATA 300,200,500,300,200 


110 DATA 300,400,400,300, 500 


Notará que hemos tenido mucho cuidado en el almace- 
namiento de la numeración dentro de las sentencias de 
DATA, así el primer motor está en la primera sentencia de 
DATA, y la décima, en la décima localización. 


Ahora deberemos poner el conjunto dentro de la me- 
moria para direccionar inmediatamente estos elementos 
de datos. Piense lo difícil que es direccionar el séptimo mo- 
tor, por ejemplo, usando lo que sabemos hasta el momento, 
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como las sentencias DATA, READ y RESTORE siendo 
muy enredado y lento. 


La forma más fácil para crear un conjunto será de la si- 
guiente forma: 

SÓ FOR L = 1 TQ 10 

359 READ A(L) 

60 NEXT L 

RUN 

No sale nada en pantalla!!!, pero eso no es cierto, dado 
que el Computador ha estado trabajando, y esto lo puede 
verificar viendo lo que tarda en salir la palabra Ready, y lo 
único es que no se imprimió lo que pasó. 


Obviamente hemos usado un bucle FORT-NEXT para 
leer (READ) las 10 partes de DATA y nombrar los elemen- 
tos que se han almacenado, A (1) al A (10). Usemos la sen- 
tencia PRINT para que se impriman los resultados. 


200 FOR N = 1 TO 10 
210 PFRINT AN) 

220 NEXT N 

RUN 


Lo que hemos hecho, ha sido el leer los elementos de la 
DATA de un conjunto A (L), imprimiéndolos de un conjun- 
to llamado A (N). La razón de esta diferencia es muy senci- 
lla, al conjunto lo llamamos A y la localización de cada ele- 
mento es identificado dentro del conjunto por un número 
que lo hemos puesto entre paréntesis. Dentro de ese parén- 
tesis, se podrá poner cualquier variable numérica y hasta 
una operación aritmética simple. 


Trabajemos más en nuestro programa: 
170 PRIMT 
180 PRINT "LICENCIAS", "MOTORES" 


210 PRINT: PRINT ON, AXN) 
RUN 


Ahora el programa una vez ejecutado tiene mejor aspec- 
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to. Hemos conseguido los números de licencias, números 
de motores, sin usar ninguna variable alfabética. Habiendo 
demostrado este punto, prosigamos, borrando las líneas 
200, 210 y 220 de nuestro programa, y entremos las siguien- 
tes: 

10 INPUT "QUE TAMANO DE MOTOR QUIERE VD. SABER"; W 


210 PRINT W, A(W) 
RUN 


De esta forma se puede conseguir un simple programa 
de inventario para su negocio. 


Vamos a ir un paso más en nuestro programa, y supon- 
gamos que hay cuatro colores (1, 2, 3 y 4) destinados a los 
diez coches, y así tendremos una lista como ésta: 


LICENCIAS MOTORES COLORES 
al 00 a 
2 200 + 
Se 500 4 
4 00 = 
S 200 2 
6 30d 4 
A 40O as 
a 400 2 
5 ZOO 1 
10 500 3 


En el lenguaje profesional de Computadores, a esto se 
le llama una MATRIZ, la cual es un conjunto con más de 
una dimensión. Nuestro conjunto original tenía una dimen- 
sión horizontal de 2 y una vertical de 10, y por la misma re- 
gla, ésta tiene una dimensión horizontal de 3 y una vertical 
de 10. 


Asignemos al conjunto destinado al código de colores 
una localización de 101 al 110, así como deberemos poner 
en el programa la información de los códigos de colores | 
con la sentencia DATA, por lo que entraremos la siguiente 
línea a nuestro programa: 


148 


148 La biblia del AMSTRAD 


300 DATA 31,4, EZ ALE 2 15 
Y 


80 FOR S = 101 TO 110 
83 READ A(S) 

90 MEXT OS 

RUIN 


Podrá comprobar que los números de los elementos del 
11 al 100 no se usan, así como del 111 al final de la memo- 
ria, dado que no se les ha asignado ningún valor. 


Además verá que al ejecutar el programa le da un 
ERROR por falta de espacio, por lo que tendremos que di- 
mensionar el conjunto A para que la memoria del Compu- 
tador se la reserve y su ejecución sea correcta, por lo que 
introduciremos en nuestro programa una nueva función 
llamada DIM, y dado que el conjunto necesita 110, añadire- 
mos la siguiente línea: 


3 DIM AC(110) 
RUN 


A continuación necesitaremos que la información salga 
correctamente en pantalla, por lo que cambiaremos las si- 
guientes líneas: 


10 INFUT "QUE NUMEROS DE MOTOR Y COLOR DESEA VD. PARA SU COCHE"; W 


180 FRINT "LICENCIA", "MOTOR", "COLOR" 
210 PRINT Y, A(W), A(W+100) 
RUN 


Compruebe la respuesta de este programa con la ante- 
rior, cuando había una matriz de 2 dimensiones. 

Si hasta ahora va entendiendo todo lo que se refiere a 
los conjuntos, Vd. podrá desarrollar su propio programa 
para satisfacer sus necesidades. 


EJERCICIO 33-1 
Supongamos que en el inventario de sus 10 coches, se le 
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incluye tres carrocerías diferentes, codificadas como 10, 20 
y 30 y están en relación con la licencia del coche de la si- 
guiente forma: 


LICENCIA CARROCERIA 
1 20 
a 20 
S 10 
4 20 
a SO 
6 20 
7 ZO 
8 10 
o 20 

10 ZO 


Modifiquemos el programa residente para que se impri- 
ma el codigo de la CARROCERIA con el resto de la infor- 
mación, cuando el coche se identifica por su número de LI- 
CENCIA. 


El dimensionamiento de un conjunto de cadena (alfabé- 
tico), se hace lo mismo que es de un conjunto numérico, 
llamando a dicho conjunto como A$ (DIM (A$ (N)). 


Los nombres que se le pueden dar a un conjunto son 
los siguientes: 


AN), BCN), DI(N), ES$(N) y XY$(N) 


150 


150 La biblia del AMSTRAD 


CAPITULO 34 


BÚSQUEDA (SEARCH) Y DISTRIBUCION (SORT) 


Una de las especificaciones más potentes de un Compu- 
tador, es la facilidad de búsqueda (SEARCH) en una infor- 
mación de DATA y distribuirla (SPORT) lo que se ha en- 
contrado en algún orden, como alfabéticamente, inverso, 
numérico de más a menos, o a la inversa, etc. 


Unas aplicaciones típicas de SEARCH y SORT son las 


siguientes: 

1.— Colocación de una lista de clientes en orden alfabé- 
tico. 

2.— Distribución de una lista de correos por código 
postal. 

3.— Distribución de una lista de clientes por código te- 
lefónico. 


Empecemos con el programa. Tenemos ocho nombres 
diferentes, y queremos clasificarlos en orden albafético, así 
que los almacenaremos usando la función DATA: 


NEW 
1060 DATA ERAVO, XRAY, ALFA, ZULU, FOXTROT, TANGO, HOTEL, SIERRA 
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Dado que los clasificaremos por nombres en vez de por 
números, deberemos usar cadenas variables, conjuntos de 
cadenas, etc., por lo que también funcionará cuando se ne- 
cesiten clasificar números. 


Lo principal de una rutina SORT es un conjunto, así 
pues cada nombre tiene que ser leído (READ) de la DATA 
en un conjunto, por lo tanto escriba las siguientes líneas a 
nuestro programa: 


10 REM * CLASIFICACION DE CADENAS * 
20 CLS: FOR D = 1 TO 8: READ A$(N): N = N + 1: NEXT D 


La línea 10 es solamente un título de lo que se va hacer. 

La líneas 20 primero borra la pantalla, carga el conjun- 
to, con la sentencia READ los ochos nombres en el almace- 
naje A$ (1) al A$ (8). N es simplemente un contador que se- 
guirá a través de todo el programa. En este caso N= 8 dado 
que sabemos el número de nombres, pero en el siguiente 
programa no sabremos dicho número, así que dejaremos la 
N de la forma normalmente usada. 


Lo importante en la rutina de SORT son los dos bucles 
FORT-NEXT, donde el primero, F, controlará el primer 
nombre, y, S, el segundo comparándolo con el primero. 


Establezcamos nuestros bucles: 


SO FOR F = 1 TO N-1 "F ES LA PRIMERA PALABRA A COMPARAR 
40 FOR S = F+1 TON "S ES LA SEGUNDA PALAERA A COMPARAR 
90 NEXT S “HACE SIETE PASES 
100 NEXT F “HACE SIETE FASES 


La F hace un bucle con los elementos del 1 al 7 
(N-1=7)del conjunto READ, y S hacen un bucle con los ele- 
mentos del 2 al 8 del conjunto READ, de esta forma nos da 
una diferencia de elementos de un conjunto para poderlos 
comparar. 


A continuación saltaremos al final de nuestro programa 
y lo prepararemos para que salga impreso en pantalla. 
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110 FOR D = 1 TO Nz PRINT A$(D),: NEXT D 


Cuando la clasificación se ha terminado, los contenidos 
en Af$ (1) al A$ (8) serán los mismos que se han leído de la 
DATA, pero clasificados en orden alfabético. 


Para la rutina de SORT entre las siguientes líneas: 


50 IF A$(F) <= A$(S) THEN 90 *COMPROBACION AL NUMERO MENOR ASCII 

60 T$ = A$(F) “ALMACENAMIENTO TEMPORAL DE LA 1 PALABRA 
70 AS(F) = A$(S) ?COPIA DE LA 2 PALABRA AL PRIMER SITIO 
80 A$S(S) = TS “PONER LA 1 PALABRA EN SEGUNDO SITIO 


En la línea 50 se dice que si la primera palabra es más 
pequeña o igual a la segunda, se deje como está y se pase a 
la línea 90 donde terminará este pase y leerá (READ) otra 
palabra para compararla con F, y si no pasará a la siguien- 
te línea. 


En la línea 60 indica que se almacene la primera pala- 
bra en una celdilla temporal llamada Tf$ y la mantendrá en 
ese sitio para un uso futuro. 


La línea 70 copia el nombre que tenemos en la segunda 
celdilla y la pone en la primera del conjunto. Si la segunda 
tiene una letra que va antes que la primera no se producirá 
nada. 


La línea 80 completa el cambio, copiando el nombre 
que tenemos almacenado temporalmente en Tf$, dentro de 
la segunda celdilla del conjunto, así pues los contenidos en 
A$ (1) y A$ (2) han sido intercambiados con la ayuda de 
Tf$. 


Si todo está bien, ejecute el programa con el comando 
RUN, y lo que aparecerá en pantalla será lo siguiente clasi- 
ficado en orden alfabético: 


ALFA BARVO FOXTROT HOTEL 
SIERRA TANGO XRAY ZULU 


Para poder ver con claridad la ejecución de este progra- 
ma, será necesario el desacelerar su ejecución, e insertar 
unas líneas de PRINT. 
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Añada estas líneas al programa: 


45 PRINT F;j A$(F),, Sj AS(S) 

47 FOR Z = 1 TO 1000: NEXT Z 

55 PRINT" CAMBIANDO" 
85 FRINT F; AS$(F),, S; A$(S) 
RUN 


Si no va lo suficientemente despacio, cambie la cifra de 
1000 en la línea 47 por otra de más valor. Esto lo que pre- 
tende es que Vd. sea el Computador y haga las decisiones 
que la línea 50 debería hacer. 


La explicación es la siguiente: en la celdilla 4+1 está la 
palabra BRAVO, y en la celdilla 3+2 está la palabra XRAY 
(como viene de la línea de DATA), de estas dos palabras, la 
de BRAVO es más pequeña (en número ASCID, así que la 
dejaremos en el primer sitio. Vayamos al siguiente pase de 
S. BRAVO está en la 3441 y ALFA en la +3 pero ALFA es 
más pequeña (+ ASCII) que BRAVO, así que deberemos 
cambiarlas: 


CAMREIANDO 


No se preocupe de lo que pasa en la segunda columna, 
dado que S está buscando en el conjunto y su contenido 
está cambiando y comparándolo con lo que hay en la pri- 
mera columna, siendo lo que cuente lo que aparece en la 
primera columna que se incrementará alfabéticamente. 


Mientras el programa sigue ejecutándose, mire las nue- 
vas palabras que salen del segundo bucle y columna, y 
compárelas con la primera. Asimismo, tome nota del incre- 
mento de los números que salen a la izquierda. 


Cuando sienta que tiene Vd. el programa dominado, 
añadiremos algo más a la impresión en pantalla, aparecien- 
do lo que T$ conserva mientras se realiza la clasificación. 
Ponga las siguientes líneas: 


45 PRINT F; AS(F),, S;j A$(S), "Ts="5 TS 
85 PRINT Fz AS(F),, S; AS(S), "Té$="; TS 
RUN 
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El siguiente paso, será el suministrar los datos para la lí- 
nea de DATA desde el exterior (o sea desde el teclado), 
siendo muy similar el siguiente programa al primero y la 
lógica es idéntica. Cambie las siguientes líneas del progra- 
ma residente: 
5D=1 
10 INPUT "SIGUIENTE NOMBRE"; A$(D): IF AS(D) = "FIN" GOTO 30 
20D=D+1: N=N+ 13 GOTO 10 


borre la linea 1000 con DELETE 
RUN 


Entre diferentes nombres aleatorios, y cuando termine 
ponga la palabra FIN. La ejecución del programa en la pan- 
talla será idéntica a lo que hemos visto anteriormente. 


EJERCICIO 34-1 
Cambie la línea 50 del programa residente, para que lis- 
te los nombres en orden alfabéticamente inversa. 
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CAPITULO 35 


CONJUNTOS MULTIDIMENSIONALES 


Hemos aprendido que los conjuntos no son nada más 
que áreas temporales de almacenamiento para números, 
caracteres alfabéticos, o para ambos, además de poder 
comparar los contenidos de las cadenas fuera de la matríz 
(o conjunto) con los que están dentro de ella. 


El conjunto donde solamente hay una dimensión; algu- 
nas veces se le llama Vector, pudiendo coger esa dimen- 
sión de conjunto y dividirla en cuatro partes iguales, posi- 
cionándolos uno al lado del otro, llamando a esto un con- 
junto de dos dimensiones, dado que están alineados en lí- 
neas y columnas. 


Entrar el siguiente programa: 


Nota: cualquier conjunto de más de 11 elementos debe 
ser dimensionado. 

NEW 

10 DIM M(32 

20 FOR V = 1 TO 52 


20 FRINT Y 
40 NEXT Y 
RUN 
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La ejecución de este programa, nos muestra las 52 posi- 
ciones y sus números (direcciones) todas en una columna, 
y a eso se le podrá llamar un Vector. Lo que no nos ha 
mostrado es el contenido de esas celdillas de memoria, así 
que para resolver este problema, cambiaremos el progra- 
ma de la siguiente forma: 

ZO FRINT Y, MV) 

RUN 

En cada celdilla se ha almacenado el número 0, dado 
que cada valor se ha inicializado a cero al comienzo, así 
pues hasta ahora sabemos cómo encontrar la dirección de 
cada celdilla de memoria y cómo saber su contenido. 


A continuación dividiremos las 52 celdillas en cuatro 
conjuntos iguales y los alinearemos uno al lado del otro, o 
sea que el conjunto de dos dimensiones, tendrá líneas y co- 
lumnas. Entremos este nuevo programa: 


10 DIM M(13,4):3 “13 LINEAS FOR 4 COLUMNAS 
20 FOR R = 1 70 13 

3O FOR C = 1 T0 4 

40 PRINT Ri C, 


50 MEXT C 
60 MEXT OR 
RUN 


La ejecución del programa nos mostrará las direcciones 
de las 52 celdillas en la pantalla, todas a la vez. Pero para 
saber lo que cada celdilla contiene de DATA, se deberá 
cambiar la línea 40: 


40 FRINT M(R,C) 
RUN 


Como podrá ver, el resultado es el mismo que la vez an- 
terior, cero, dado que el programa se ha inicializado de 
nuevo. Así pues como las celdillas han de ser llenadas de 
datos de algún valor, esto se podrá conseguir leyendo 
DATA, introduciéndola desde el teclado, o de datos exter- 
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nos, como el de una cinta Cassette. En este caso llenaremos 
nuestra matriz desde una línea de DATA, así pues añadir 
las siguientes líneas: 

100 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 


110 DATA 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37 


120 DATA 38,39, 40,41,42,43,44,45,46,47,48,479,50,51,52 


y esta línea para leer la DATA y colocarla en la matriz: 


20 READ M(R,C) 

RUN 

Ahora podemos ver los datos colocados en la matriz y 
cada matriz posicionada en una dirección específica. Que- 
démonos en este modo de comando durante un par de mi- 
nutos, para interrogar al programa sobre diferentes posi- 
ciones de matrices y ver lo que contienen. Así pues cuando 
aparezca el cuadradillo del cursor, escribir lo siguiente: 


FRINT O M(2,3) 

y la respuesta será 7. Ejecute de nuevo el programa y 
cuando tenga la respuesta del cursor escriba lo siguiente: 

FRINT M(11,4) 

y la respuesta será 44. Pruebe con lo siguiente: 

FRINT MC, 5) 

Le dará un ERROR (Subscrip out of range), dado que 
en este programa no tenemos columna 5. 


EJERCICIO 35-1 

Cambie la línea 35 a una sentencia LET para llenar cl 
conjunto con los mismo números, pero sin usar las líncas 
de DATA. (Asegúrese que cuando termine, ponga cel pro- 
grama como estaba originalmente.) 


Hasta ahora hemos estado trabajando con números en 
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los conjuntos, pues bien, los cambiaremos para usar letras 
o palabras, con las mismas reglas que usamos anteriormen- 
te. Hagamos los suficientes cambios en nuestro programa 
residente (recuerde que después del ejercicio 35-1, debería 
haber puesto el programa en su estado original): 

10 DIM M$(1:3,4) 

5 READ M$(R,C) 

40 FRINT M$(R,C) 

RUN 


El resultado no ha cambiado en nada, ahora tenemos 
una matriz de cadena, pero los datos son numéricos, por lo 
que tendremos que cambiar las líneas de DATA: 


20 FOR R = 1 706 

100 DATA ALFA, BRAVO, CHARLY, DELTA, ECO, FOXTROT, GOLF, HOTEL 
110 DATA INDIA, JULIA, E ILO,LIMA, MIKE, NOVIEMERE, OSCAR, FAFA 
20 DATA DUEBEC, ROMEO, SIERRA, TANGO, UINFORM, VICTOR, WHISKEY 
130 DATA XRAY, YANKEE, ZULU 

RUN 


Verá que no hay diferencia entre una matriz numérica y 
una de cadena, exceptuando que ésta maneja palabras. 


El siguiente paso, será el mezclar los dos tipos de matri- 
ces, tanto numéricas como de cadenas alfabéticas. 


El objetivo de este programa de demostración, es el po- 
der llevar un cuaderno de notas de una Institución Benéfi- 
ca de quién ha aportado y cuánto. 


Empecemos este nuevo programa con las líneas de 
DATA: 


NEW 

1000 REM * FICHERO DE DATA * 
1010 DATÁ 07.0182, PEREZ, 13 
1020 DATA 07.0182, GONZALEZ, 87 
10:30 DATA 07.0182, RODRIGUEZ, 24 
1040 DATA 07.0182, LOFEZ, 33 
10350 DATA 07,.0182, MARTINEZ, 42 


Analizando las sentencias de DATA, empleamos dife- 
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rentes técnicas. El primer número de cada línea de DATA 
se llama compresión de datos, y significa que en un mismo 
número se representa más de una información, la cual con- 
tiene el mes, día y año en un número de 6 dígitos. 


La segunda información, es que el primer número es 
protegido con un cero, dado que hasta octubre el mes está 
representado con solamente un número. 


El segundo elemento de la información de la DATA es 
el nombre que aparece en cada línea. Se podría poner el 
nombre completo, pero si se usa una coma en medio, dicho 
nombre habría que ponerlo entre comillas. 


El tercer elemento, representa a la cantidad percibida 
por Entidad. 


Naturalmente estos datos son de demostración, y po- 
drían almacenar cualquier otra que a Vd. se le ocurra. 


A continuación se deberá leer (READ) esta DATA en 
una matriz de cadena, por lo que añadiremos las siguientes 
líneas: 

2 MODE 2 


4 CELS 
6 FRINT: PRINT "ENTRADA $", "FECHA", "NOMBRE", "CANTIDAD" 


10 FOR E = 1 TO S: FRINT E, 
20 FOR D= 1 TO 3 
SO REM XxX ENTRAR LA DATA 


40 READ R$(E, D) 
SO PRINT R$(E,D), 
60 NEXT D 

70 NEXT E 

RUN 


Muy bien, la matriz se ha cargado y es confirmada en 
pantalla, viendo las 5 entradas con fecha del 1 de julio de 
1982. 


Ahora que sabemos que se carga bien, podemos quitar 
parte del Software. 


Cambie la siguiente línea: 
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10 FOR E = 1 TO $ 
borre con DELETE la linea 0 
RUN 


Muy bien, seguimos teniendo el encabezamiento pero el 
resto no aparece, así que ahora podemos interrogar a la 
matriz para sacar informes individuales. 


Entre la siguiente línea: 


S INFUT "QUE INFORME NECESITA VD."3 N$ 

RUN 

Parece que funciona bien, así que contestaremos a la 
pregunta con un nombre que esté en una de las líneas de 
DATA, teniendo que hacer un rastreo de la matriz y com- 
parar N$ el nombre que hemos entrado con cada elemen- 
to, R$ (E, D), hasta que se encuentre una semejanza, colo- 
cando el bucle FOR-NEXT otra vez y buscando cada ele- 
mento. Añada las siguientes líneas al programa: 


110 FOR E = 1 TOS 


120 IF R$(E,2) = N$ THEN 150 
130 NEXT E 
140 FRINT " NO ESTA EN EL FICHERO": GOTO 90 


150 PRINT E, R$(E,1), R$(E,2), R$(E,3) 

160 FRIMT: GOTO 90 

RUN 

Si Vd. tiene problemas en visualizar la línea 150, añada 
esta línea temporalmente, que imprimirá la dirección de 
cada elemento de DATA por debajo: 

155 PRINT E, Esl, Es2, Ej Xx 

RUN 


EJERCICIO 35-2 
Escriba un programa donde se contenga en un conjunto 
de cadena de dos dimensiones con: 
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LOREZ, Cs 10439 100,00 


FEREZ, l. 10023 87.24 
RODRIGUEZ, J. 12936 398.34 
GONZALEZ, F. 10422 ¿ña 17 


EJERCICIO 35-3 

Clasifique los nombres del conjunto en el Ejercicio 35-2 
alfabéticamente, sin olvidarse de mantener el resto de la 
información en cada línea del nombre original. 


EJERCICIO 35-4 

Con la información del ejercicio 35-2, pruebe a clasificar 
el conjunto en orden ascendente por el número de la co- 
lumna 3. 
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APENDICES 


APENDICE 1 


Soluciones a los Ejercicios 


Solución al Ejercicio 5-1: 
50 FRINT D 
Ejemplo de la ejecución del Ejercicio 5-1: 


S6000 


Nota: Vd. probablemente habrá usado un número de lí- 
nea diferente, pero lo importante es el usar la sentencia 
PRINT. Si no consiguió la respuesta adecuada, no se preo- 
cupe, teclee la línea 50 y ejecútela. 


Solución al Ejercicio 5-2: 


10 REM kx SOLUCION AL TIEMPO SABIENDO LA DISTANCIA Y LA VELOCIDAD x* 
D 6000 g 

SO R 500 

40 T D/R 

SO PRINT "EL TIEMPO NECESARIO ES"; T ¿"HORAS." 


"non”oQa 


Ejemplo de la ejecución del Ejercicio 5-2: 


EL TIEMPO NECESARIO ES 12 HORAS 
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Nota: Para llegar a la fórmula de la línea 40, es necesa- 
partir de la fórmula original D = R * T, de donde T 


rio 


D/R. 


Solución al ejercicio 5-3: 


10 REM kx SOLUCION A LA CIRCUNFERENCIA Xk 

20 F= 3,14 

30 D=35 

40 C=FXxoD 

SO FRINT "LA CIRCUNFERENCIA DEL CIRCULO ES"; C ¿"METROS." 
Ejemplo de la ejecución del ejercicio 5-3: 
LA CIRCUNFERENCIA DEL CIRCULO ES 109.9 METROS. 

Solución al Ejercicio 5-4: 

10 REM * SOLUCION AL AREA DEL CIRCULO xk 

20 FP o= 3.14 

TO R<=53 

40 A=PkRR KAR 

50 FRINT- "EL AREA DEL CIRCULO ES" A ¿"METROS CUADRADOS. " 


Ejemplo de la ejecución del Ejercicio 5-4: 


EL AREA DEL CIRCULO ES 78.5 METROS CUADRADOS. 


Sol 


Teniendo en cuenta de que si llamamos a: C = cheques, 


ución al Ejercicio 5-5: 


D = depósitos, B = balance original, y N= nuevo balance. 
10 B = 22500 

20 C= 170 + 3390 + 2250 

ZO. D= 400 + 20000 

40 N= K-C%+0D 


S0 FRINT "SU NUEVO BALANCE ES DE"; N ¡"PESETAS" 


Ejemplo de la ejecución del Ejercicio 5-5: 
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SU NUEVO BALANCE ES DE 40130 PESETAS 


Solución al Ejercicio 6-1; 


10 REM * SOLUCION AL TOTAL DE KILOMETROS RECORRIDOS x* 
20 N 1006000 

ZO D= 10000 

40 T N xD 

S0 FPRINT "EL TOTAL DE KILOMETROS CONDUCIDOS ES DE ";T 


A] 


Ejemplo de la ejecución del Ejercicio 6-1: 


EL TOTAL DE KILOMETROS CONDUCIDOS ES DE 1E+10 


Nota: 1E + 10 es a equivalente un 1 seguido de 10 ceros 
(10.000.000.000) 


Solución al Ejercicio 6-2: 


20 N 
ZO D 


1E+6 
1E+4 


Solución al ejercicio 7-1: 


10 REM *k CONVERSION GRADOS FAHRENHIET A CENTIGRADOS * 

20 F=653 

50 (0 = (F - 32) k (5 / 9) 

40 PRINT OF "GRADOS FAHRENHIET ="; C ¡"GRADOS CENTIGRADOS" 


Ejemplo de la ejecución del Ejercicio 7-1: 
635 GRADOS FAHRENHIET = 18.3333 GRADOS CENTIGRADOS 


Observe en donde se han puesto los paréntesis, y por 
regla general en caso de duda deberá usarlos. 


Solución al Ejercicio 7-2: 


30C=PF-32k (5/ 9) 


Ejemplo de la ejecución del Ejercicio 7-2: 


65 GRADOS FAHRENHIET = 47.2222 GRADOS CENTIGRADOS 


Habrá notado que al Computador le ha costado bastan- 
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te el darnos la respuesta equivocada, dado de que le hemos 
dado una información errónea, el nos da la respuesta erró- 
nea también, eso demuestra que hay que programar al 
Computador correctamente. 


Solución al Ejercicio 7-3: 
JO Cz= U1(F - 32) X5/9 
Ejemplo de la ejecución del Ejercicio 7-3: 


63 GRADOS FAHRENHIET = 18.3333 GRADOS CENTIGRADOS 


Solución al Ejercicio 7-4: 


Hay dos posibles respuestas: 


30 - (9 - B) - (7 - 6) = 
30 >= AP => 18: = 7 = Xy) 


28 


28 


Ejemplos de programas: 


10 A = 30 - (9 - (8 - (7 - 6))) 
20 FRINT A 


O modificando la línea 10: 


10 A = 30 -— (9 - 8) — (7 — 6) 


Pruebe algunas más que a Vd. se le ocurran. 


Solución al ejercicio 8-1: 


10A=5 

20 IF A<> 5 THEN SO 

30 FPRINT "A ES IGUAL A S" 
35 PRINT 

40 END 


SO FPRINT "A NO ES IGUAL A 3" 


Ejemplo de la ejecución del ejercicio 8-1: 
A ES IGUAL A S 
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Solución al Ejercicio 8-2: 


10 A=6 

20 IF A<> 5 THEN SO 

30 FRINT "A ES IGUAL A 5" 

40 END 

SO FRINT "A NO ES IGUAL A 3" 
60 IF A< 5 THEN 90 

70 FRINT "A ES MAYOR QUE 5" 
80 END 

90 FRINT "A ES MENOR QUE 5" 


Ejemplo de la ejecución del Ejercicio 8-2: 


A NO ES IGUAL A 5 
A ES MAYOR QUE 5 


Nota: Hemos puesto una sentencia END en la línea 80 
para que el programa no salte a la línea 90 después de ha- 
ber imprimido la línea 70. 


Solución al Ejercicio 13-1: 


2 INFUT "CUANTOS SEGUNDOS DE RETARDO DESEA "; S 

2 F<= 400 

4D=SXxF 

S FOR X = 1 TOD 

6 NEXT X 

7 FRINT "EL RETARDO HA TERMINADO, HA TARDADO"; S ¿" SEGUNDOS" 


Explicación: 

La línea 2 usa una sentencia INPUT para obtener los se- 
gundos de retardo (S) deseados. 

La línea 3 define a P como el número de pases necesa- 
rios para un retardo de un segundo. 

En la línea 4 se multiplica el retardo para un segundo 
por el número de segundos deseados, definiendo al pro- 
ducto como D. 

En la línea 5 da comienzo el bucle FOR-NEXT. 

La línea 6 es la otra mitad del bucle. 

La línea 7 informa que el retardo se ha terminado im- 
primiendo el número de segundos (S) que ha tardado. 
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Solución al Ejercicio 13-2: 


60 FRINT "VELOCIDAD", "HORAS", "DISTANCIA" 
65 FRINT "(klm/H)", "(Tiempo)", "(Klm)" 


Solución al Ejercicio 13-3: 


1 MODE 2 


5. ¿CLS 


10 FRINT MBR: TABLA DE SUELDO SS MOOD" 


20 FRINT 

30 FRINT "ANUALIDAD", "MENSUAL", "SEMANAL", "DIARIO" 
40 FRINT 

SÓ FOR Y = SO0000 TO 2500000 STEP 100000 


55 REM k CONVERSION ANUAL EN MENSUAL XK 
60 M= Y / 12 
65 REM kx CONVERSION ANUAL EN SEMANAL X 
TO W= Y / 52 
73 REM k CONVERSION SEMANAL EN DIARIO Ak 


80 D= WY/S 
100 FRINT Y, M, W, D 
110 NEXT Y 


Ejemplo de la ejecución del ejercicio 13-3: 


OI. TAELA DE SUELDO SS MOOIDIONK 


ANUAL. IDAD MENSUAL SEMANAL DIARIO 
SO0000 41666.7 9615.39 1923.08 
600000 So000 11538.5 2307.69 
7TOQ0000 13461.5 2692.31 


Solución al Ejercicio 13-4: 


1 MODE 2 

53 CLS 

lO R = 100 
20 D=1 
0 T= 100 


40 FRINT "DIA", "DIARIO", "TOTAL" 
Su PRINT O" 4%, "PTS", "GANADO e 
60 FRINT 

70 FRINT D, R, T 

80 IF R + 1E+06 THEN END 

JOR = 2 Xx KR 

100 D = D 
110 T = T 
120 GOTO 7u 
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Ejemplo de la ejecución del Ejercicio 13-4: 


DIA DIARIO TOTAL 
$ FTS GANADO 
1 100 100 

2 200 300 

Z 400 700 

4 800 1500 

S 1600 3100 

6 3200 6300 

ElC.... 


Solución del Ejercicio 13-5: 


1 MODE 2 
5 CLS 

10 FRINT "ALAMBRE", "LARGO", "ANCHO", "SUPERFICIE" 

20 FRINT "(METROS)", "(METROS)", "(METROS)", "(METROS CUADRADOS)" 
25 FRINT 

ZO F = 1000 

40 FOR L = 0 TO 500 STEP 50 

SO W x= (F- 2 Xx L) / 2 

560 A=L Xx W 

70 FRINTF, L, WA 

80 NEXT L 

90 END 


Ejemplo de la ejecución del Ejercicio 13-5: 


ALAMBRE LARGO ANCHO SUPERFICIE 
(METROS) (METROS) (METROS) (METROS CUADRADOS) 
1000 o 500 o 

1000 30 450 22500 

1000 100 400 40000 

1000 150 350 32500 

10 200 300 60000 

1000 250 250 625300 

1000 300 200 60000 


Otra solución al Ejercicio 13-5: 


En este programa el Computador se encargará de la 


comparación. 

1 MODE 2 

SES 

9 REM X FONER EL AREA MAXIMA A CERO * 

10 Mo= 0 

14 REM * PONER LA LONGITUD DESEADA A CERO * 
15 N = 0 
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19 REM * F ES EL TOTAL DE LOS METROS DE LA PARCELA Xx 
20 F= 1000 

24 REM * L ES LA LONGITUD DE UN LADO DEL RECTANGULO k 
25 FOR L = 0 TO 500 STEP SO 

29 REM kx L ES EL ANCHO DE UN LADO DEL RECTANGULO x*x 

30 W= (F - 2 Xx L) / 2 


A=WXL 
39 REM *x COMPARACION xk 
40 IF A <= M THEN GOTO 55 
43 M=A 
5ON=L 
535 NEXT L 


60 FRINT "ESTAS DIMENSIONES SON LAS MAXIMAS PARA: " 
65 FRINT Nz "MT. POR"; SOON; "MT. PARA UN AREA TOTAL DE" 3 M5 "MI. 
CUADRADOS" 


Ejemplo de esta ejecución: 


ESTAS DIMENSIONES SON LAS MAXIMAS PARA: 
250 MT. POR 250 MT. PARA UN AREA TOTAL DE 62500 MT. CUADRADOS 


Solución del ejercicio 13-6: 


5 MODE 2 
10 REM *x ENCONTRAR LA CARGA OPTIMA x* 

ZO CLS 

30 PRINT "CARGA", "CIRCUITO", "ORIGEN", "CARGA" 

40 PRINT "RESIST", "FOTENC", "POTENC", "POTENC" 

SO PRINT "(OHMS)", "(VATIOS)", "(VATIOS)", "(VATIOS)" 
60 ERINT 

70 FOR R = 1 TO 20 

80 1 = 120 / (10 + R) 

90 C= 1x1 Xx (10 + R) 

100 S = 1 Xx I xk 10 

110L=1XIXR 

120 PRINT R, C, S, L 


170 NEXT R 


Ejemplo de la ejecución del Ejercicio 13-6: 


CARGA CIRCUITO ORIGEN CARGA 
RESIST POTENC POTENC POTENC 
(OHMS) (VATIOS) (VATIOS) (VATIOS) 
1 1309.09 1190.08 119.008 
2 1200 1000 200 

ES 1107.69 j 852.071 255.621 
ltC.or on» 


Solución del Ejercicio 14-1: 


10 FRINT "EL ", "TOTAL ", "GASTADO" 

20 FRINT "PRESUPUESTO MES ES" 

30 FPRINT TAE(O)¿ "CATEGORIA"; TAR(16); "PRECIO"; TAR(32)5 "UNIDAD" 
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Solución al Ejercicio 14-2: 


1 MODE 2 
ZO FRINT TAB(1); "ANUALIDAD"; TAR(12)3 "MENSUAL"; TAR(25)5 "SEMANAL"; 
3 PRINT TAB(38)53 "DIARIO"; VTAB(S1)5 "HORA" 


85 REM ACONVERSION SEMANAL A HORA x* 


JO H=wWY/ 40 
100 FRINT TAE(O); Yi¿TAR(11)3 Mi¡TAB(24)3 W¡TAR(37)5 D¡TAR(S50)5 H 
Ejemplo de la ejecución del ejercicio 14-2: 
OOO. TABLA DE SUELDOS  aoloidONK 
ANUALIDAD MENSUAL SEMANAL DIARIO HORA 
500000 41666.7 9615.39 1923.08 240.385 
600000 50000 11538.5 2307.69 288.462 


lOtlo.oo....no 


Solución del Ejercicio 14-3: 


1 MODE 2 

ZO FRINT "INTERNA"; TAB (10)3 "CARGA"; TARB(21)5 "CIRCUITO"; 

35 FRINT TAR(36)3 "ORIGEN"; TARB(S1); "CARGA" 

40 FRINT "RESIST"¡3TAR(10)3 "RESIST"¿TAB(21)3 "POTENC"; 

45 FRINT TAB(236)3 "POTENC"¿TAR(S1)5 "POTENC" 

50 FRINT "(OHMS)5TARB(10)5 "(OHMS)"¿TAR(21)5 "(VATIOS)"; 

55 FRINT TAB(36)¿ "(VATIOS)¡TARB(S1)5 "(VATIOS)" 

20 FRINT "  10";¿TAB(11); Ri¿TAB(20)3 CjTAR(35)3 SiTAR(S0)3 L 


Ejemplo de la ejecución del ejercicio 14-3: 


INTERNA CARGA CIRCUITO ORIGEN CARGA 
RESIST RESIST POTENC POTENC POTENC 
(OHMS) (DHMS) (VATIOS) (VATIOS) (VATIOS) 
10 1 1309.09 1190.08 119.008 
10 2 1200 1000 200 
10 3 1107.69 852.071 259.621 


ElC..ooo. 


Solución del Ejercicio 15-1: 


“o, "BUCLE E" 
FOR C= 1704 
44 PRINT O" %, "o 6", "BUCLE C" 
48 NEXT C 
SO NEXT E 
60 NEXT A 
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Solución del ejercicio 15-2: 


El programa de este Ejercicio es el mismo que el de la 
solución del 15-1, añadiendo las siguientes líneas: 
43 FOR D= 1 TOS 


46 FRINT O" 0%, o O", 4 ON, "BUCLE D" 
47 NEXT D 


Solución del Ejercicio 16-1: 


Añadiendo esta línea al programa, le redondeará la cifra 
mejorando la lectura de la respuesta. 


59 A = INT(A) 


Solución del Ejercicio 16-2: 


59 A = INT(1O0 kx A) / 10 


Cuando el valor 3.14159 es multiplicado por 10, se con- 
vierte en 31.4159. El entero de este valor será 31, y una vez 
dividido entre 10 se convierte en 3.1. 


Solución del Ejercicio 16-3: 


55 A = INT(10O0 k A) / 100 


Solución del Ejercicio 17-1: 


10 INPUT "ENTRE UN NUMERO CUALQUIERA"; X 
20 T= SGN(X) 

30 ON T + 2 GOTO 50, 60, 70 

43 END 

SO PRINT "EL NUMERO ES NEGATIVO." 

55 END 

60 FRINT "EL NUMERO ES CERO." 

65 END 

70 FRINT "EL NUMERO ES POSITIVO." 
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Solución del Ejercicio 22-1: 


10 CLS 

20 INFUT "FRIMERA CADENA" As 

ZO INFUT "SEGUNDA CADENA"; E$ 

40 FRINT: FRINT "ORDEN ALFAKETICO: " 
SO 1F A$iE$ THEN FRINT A$, Eb: END 
6G FRINT Eb, As 


Solución del Ejercicio 23-2: 


10 CLS 

20 INPUT "ENTRAR LA PALABRA SECRETA"; A$ 
ZO FOR X = 1 TO 11 

40 READ ON 

So F$ = Fs + CHR$(N) 

$0 NEXT X 

70 IF Aé = F$ THEN 100 

80 FRINT "PALABRA INCORRECTA, LO SIENTO" 
90 END 

100 FRINT "FALABRA SECRETA CORRECTA, TIENE ACCESO" 
L1O DATA 65,66,82,69,32,83,69,83,65,77,79 


Solución del Ejercicio 23-1: 


10 CLS 

20 INPUT "ENTRAR UNA CADENA"; A$ 
ZO 1F.— LEN(A$):10 THEN PRINT 
CARACTERES. " 


"SE HA EXCEDIDO DEL 


Solución del ejercicio 24-1: 


10 CLS 

20 INPUT "ENTRAR SU CALLE Y NUMERO"; A$ 

ZO A = VAL(AS) 

40 PRINT: PRINT "EL NUMERO DE LA CALLE DE SU VECINO ES "¡ A+ 4 
SO FRINT: LIST 


Solución del Ejercicio 24-2: 


10 CLS 

20 FOR X = 101 TO 120 
30 AS = STR$(X) 

40 PRINT A$ + "WT", 
SO NEXT X 

60 PRINT: LIST 


LIMITE. DE 


10 
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Ejemplo de la ejecución del Ejercicio 24-2: 


101WT 102WT 103WT 104wT 
105WT 106WwT 107WwT 108WT 
109wWT 110wT 111wT 112WT 
113WT 114wT 113wT 116wT 
117wT 118wT 119wT 120wT 


Solución del Ejercicio 25-1: 


10 
20 
30 
40 
50 
60 
70 


CLS 

INFUT "ESTE ES UN ORDENADOR INTELIGENTE"; A$ 
ES = LEFTS(A$, 1) 

IF ES = "S” THEN PRINT "AFIRMATIVO": END 

IF E$ = "N" THEN PRINT "NEGATIVO": END 

FRINT "ESTO NO ES UNA PREGUNTA DE SI O NO" 
GOTO 20 


Solución del Ejercicio 25-2: 


10 
20 
ZO 
40 
50 
60 
70 
80 
90 


CLS: MAXS$ = "" 

FOR I = 1 TO 3 

READ A$ 

N$ = MID$(A$,2,3) 

IF N$ > MAXS$ THEN MAX$ = N$: P$ = A$ 

NEXT 1 

PRINT "EL NUMERO DE FIEZA CON LA PORCION MAYOR NUMERICA ES"; F% 
FERINT: LIST 

DATA Ni06WT, A208FM, Z21534DX 


Solución del Ejercicio 28-1: 


10 
20 
ZO 
40 


50 


CLS 

A = 5: B= 12 

C = SOR(AC2 + B[2) 

FRINT "LA RAIZ CUADRADA DE"; A; "CUADRADO MAS";R; "CUADRADO ES"¡C 
FRINT: LIST 


Solución del Ejercicio 28-2: 


Nu) 
20 
30 
40 


50 


INPUT "ENTRAR UN NUMERO"; N 
PRINT "LOG( EXP ("¿N3")) ="3 LOG(EXP(N)) 
FRINT "EXP( LOG("¿NM3")) ="3 EXP(LOG(N)) 
PRINT 

GOTO :10 
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Solución del Ejercicio 32-1: 


S MODE 2 

10 CLS: PRINT TAB(24) "CREDITOS IMPUESTOS TOTAL" 
20 FOR 1 = 1 710 3 

30 READ A$,X,Y,Z 

35 REM 12345678901234567890123456789012345678901234567890 
40 Us = "sx N HH.$ $ 44.4" 
SO PRINT USING U$; A$,X,Y,Z 

60 NEXT 1 

70 READ A$,N 

73 REM 1234567890 

80 vs =>. y HRH RA 


90 FRINT TAR(35)3:2 PRINT USING V$; A$,N 
100 DATA COMPUTADORES S.A., 18.3, .7, 19.0 
110 DATA ELECTRICAS S.A., 1.8, O, 1.8 

120 DATA COMFONENTES S.A., 7.2, +3, 7.3 
130 DATA "TOTALES", 28.3 


Nota: las líneas 35 y 75 están como REM para facilitar la 
posición de los campos. 


Solución del ejercicio 33-1: 


Añada y cambie las siguientes líneas: 
1 MODE 2 
S DIM A(210) 
10 INFUT "QUE NUMERO DE MOTOR, COLOR Y CARROCERIA DESEA VD. CONOCER"; 
w 
130 FOR KB = 201 TO 210 
133 READ A(E) 
140 NEXT E 
180 FRINT "LICENCIAS", "MOTORES", "COLOR", "CARROCERIA" 
210 FRINT Y, A(W, A(W+100), A(W+200) 
400 DATA 20,20,10,20,30,20,/30,10,20,20 


Solución del Ejercicio 34-1: 


Cambie la línea 50 a: 
SO IF A$(F) <= A$(S) THEN 90 


Alterar el orden inverso de impresión: 
110 FOR D= N TO 1 STEP -—-1: FRINT A$(D),: NEXT D 


Solución del Ejercicio 35-1: 
3S M(R,C) = 4 k (R-1) + C 
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Solución del Ejercicio 35-2: 


10 CLS 
20 FOR E = 1 TO 4 
ZO FOR D=1T0 3 


40 REM ok ENTRANDO DATOS * 

SO READ R$(E,D) 

60 PRINT R$(E,D), 

70 NEXT Dz FRINT 

80 NEXT Ez FRINT 

1000 REM * FICHERO DE DATA 

1016 DATA "LOFEZ,C.", 10439, 100.00 
1020 DATA "FEREZ,1.", 10023, 87.24 

1070 DATA "RODRIGUEZ, J.", 12936, 398.24 
1040 DATA "GONZALEZ,F.", 10422, 23.17 


Solución del ejercicio 35.3: 
Añadir al programa: 


100 REM * CLASIFICACION X 
110 FOR F = 1703 
120: FOR S = FE + 1 10.4 
130 IF R$(F,1) <= R$(S,1) THEN 190 
140 FOR Y = 1 TO 3 
150 T$(J) = R$(F,J) 
160 R$(F,J) = R$(5,J) 
R$(S,J) = T$(J) 
NEXT J 
MEXT S 
NEXT F 
FRINT: PRINT "CLASIFICACIÓN ALFARETICA": FRINT 
FOR E = 1 TO 4 
FOR D= 170 3 
FRINT R$(E,D), 


Solución del Ejercicio 35-4: 
Cambie las siguientes líneas: 
1 


130 IF VAL(R$(F,3)) ¿= VAL(R$(S,3)) THEN 190 
210 FRINT: PRINT "CLASIFICACIÓN NUMERICA": FPRINT 
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APENDICE 2 


Algunos programas de interés 


1.— Reloj de 24 Horas 


10 INFUT"LA HORA ES"; E 

20 FE = INT(E/10): E E -— (Fx10) 
ZO INFUT"LOS MINUTOS SON"; C 

40 D = INT(C/10)3 C = C - (Dkx10) 
50 INPUT"LOS SEGUNDOS SON";z A 
60 CLS: PRINT CHR$ (23) . 

70 E = INT(A/10): A = A-— (Ex10) 
g0 FOR N = 1 TO 400: NEXT ON 

90 A=Az%*i1 

100 IF A > 9 THEN 120 

110 GOTO 310 

120 A=0 

130 
140 
1590 
160 
170 


160 


IFC:9 THEN 200 
GOTO 310 


240 


280 


Fo=Fcxsil 

IF (F=1) AND (E=3) THEN A = Oz E 
LOCATE 20,6:FRINT Fj Es ":"3 Di C 
GOTO 80 
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2.— COMPROBACION DE NUMEROS 


Para los que tienen responsabilidades de inventarios, 
balances,etc., este programa le será de mucha utilidad para 
la comprobación de los diferentes códigos. Este programa 
está diseñado para números de seis cifras. 


S CLS 

10 FRINT 

20 INPUT "EL PRIMER DIGITO ES:"3 A 
30 INFUT "EL SEGUNDO DIGITO ES:"; 
40 INPUT “EL TERCER DIGITO ES:"3 C 
50 INPUT “EL CUARTO DIGITO ES: D 
60 INFUT "EL QUINTO DIGITO ES:"; E 
70 INFUT "EL SEXTO DIGITO ES:"3 F 

80 FRINT 

90 FRINT “EL NUMERO ES:"¡A5B3C;3D;E;5F 


100 S=A+2xXB+C+2XD+E+2kF 
110 T = 1NT(S/10) 

120 U=S- Tx 10 

1305 =T>+*U 


1490 IF S > 9 THEN 110 
150 FRINT "EL DIGITO COMPROBADO ES: "3, S 


3.— PROGRAMA PARA CALCULAR UNA ANTENA CU- 
BICA QUAD 


Las antenas del tipo cúbicas quad son de excelente ga- 
nancia, y se usan para las comunicaciones tanto en recep- 
ción como en transmisión. Eléctricamente, consta de dos 
lazos de cable, de los cuales a uno se le conecta un cable 
caxial, o paralelo, para obtener la señal, y el otro es un lazo 
completo. 


Si desea que su resultado salga por impresora, lo único 
que deberá hacer, es sustituir todas las sentencias PRINT 
por PRINT ¿+8 y el cálculo de su antena lo tendrá en papel. 


20 FRINT "DISENO DE SU PROPIA ANTENA DE ALTA GANANCIA" " 

30 FPRINT 

40 INPUT "FRECUENCIA CENTRAL EN MEGAHERCIOS = "3 F 

so CLS 

60 PRINT "3---+ ANTENA CUREICA CUADRADA <---< 
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110 R = 1032 / F 

120 B = 118 / F 

110 X = (2 kX (R kX R / 64)) 

140 S = SOR(X) 

130 X= (S XS + (B k E / 4)) 

160 F = SOR(X) 

170 X = ((R kX R / 694) + 73 X 73 / (F kX F k 4)) 

180 T = SOR(X) 

190 X= ((R XxX R / 64) + 125 k 125 / (F kx F x 4)) 

200 U = SOR(X) 

210 Y = 468 / F 

220 FRINT "LA FRECUENCIA CENTRAL DE ESTA ANTENA ES" 3 Foz "MHZ. EN 
ESTOS DOS" 

230 FRINT "ELEMENTOS SE TENDRA UN PORCENTAJE DE ONDA REFLEJADA DE 
MENOS DE" 

240 FPRINT "2:1 SOBRE UNA COBERTURA DE FRECUENCIA DE “3 E ¿"As G 5 
"MHZ" . 

250 FRINT "CUANDO SE USA UN CABLE DE 50 A 75 OHMS DE ALIMENTACION. " 


260 ERINT 

270 FRINT "LA LONGITUD DEL BRAZO CENTRAL  (KOOM) PUEDE VARIAR ENTRE" 
¡75/F 

30 PRINT "PIES Y" 3125/F3 "PIES CON MUY POCO EFECTO. UNA LONGITUD DE" 


¿Es "PIES" 
290 PRINT "SERIA LA MEJOR." 

300 PRINT ; 

310 FRINT “LA LONGITUD TOTAL DEL CABLE DEL ELEMENTO CONDUCTOR ES DE" ; 
D ¡"PIES," 


320 FRINT "QUE SERRA DE"; D/4 ¡"PIES EN CADA UNO DE LOS LADOS." 
340 GOSUR 1000 
360 FRINT "LA LONGITUD TOTAL DEL CABLE DEL ELEMENTO REFLECTOR ES DE" 


¡R O3"FIES," 

370 FPRINT "QUE ES IGUAL A"; R/4;" PIES DE CADA LADO." 

380 FRINT 

390 PRINT "LA LONGITUD MINIMA DE CADA BRAZO DE EAMEU, FIERA DE VIDRIO 
O OTRO" 

400 PRINT— "MATERIAL AISLANTE FUERTE, SERA DE " S; "PIES, MEDIDOS 
DESDE EL " 

410 PRINT "CENTRO DEL BRAZO (EOOM). SI SE MONTA UNA ANTENA SIN ERAZO 
(EOOM)," 

420 PRINT "CENTRAL, CADA ERAZO PARA MONTAR LOS CAELES DEBERA TENER POR 
LO MENOS" 

430 FRINT Pz " PIES." 

440 FRINT 


450 FRINT "EL RADIO DE MOVIMIENTO CIRCULAR PARA DESPEJAR LA ZONA 
ESTARA ENTRE" 

460 PRINT Tj " PIES Y" ¿Uz " PIES, DEPENDIENDO DE LA LONGITUD DE SU 
ERAZO CENTRAL" 

500 GOSUB 1000: CLS 

510 PRINT— "ESTA ANTENA CURKICA, FUNCIONARA PERFECTAMENTE EN ALTURAS 
KAJAS POR" 

520 FRINT "ENCIMA DEL TERRENO, PERO SU RENDIMIENTO SERA MEJOR, CUANDO 
SE PONGA" 

530 FRINT "A UNA ALTURA EQUIVALENTE A MEDIA LONGITUD DE ONDA ---"  3W; 
"FIES O MAS" 

540 FRINT 

550 PRINT "LA RELACION FRENTE-POSTERIOR (LA REDUCCION DE LAS SENALES 
QUE NOD SE" 

560 FRINT "DESEAN RECIEIR) EXCEDERA DE 10 DECIBELIOS EN UN RANGO DE 
FRECUENCIA" 

570 FPRINT "DE" 3 .97XF 5; "A" 3 1.03*F 5; "MEGAHERCIOS, LLEGANDO A LOS 
25 DE EN" 

580 FRINT "LA FRECUENCIA DE"; F ¿"MEGAHERCIOS." 

590 FRINT 

600 FRINT "XxX X*XEBUENOS CONTACTOS" 
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999 GOTO 999 
1000 LOCATE 23,24: INPUT "PRESIONA <ENTER> FARA CONTINUAR"; AS 
1010 CLS: RETURN 


4.— TAMBORES 


Este programa simplemente tocará un ritmo de tambo- 
res, consiguiendo con el comando ENV unos efectos muy 
realísticos. 


10 CLS: S = 1 

15 MODE O 

20 LOCATE 8,11: PRINT "TAMBORES" 
30 ENV -1,1,-127,1,5,24,1 

40 ENV 1,1,15,1,5,-3,2 

50 ENV 2,15,-1,10 

60 FOR T = 1 TO 4 


65 IF S 2 THEN S = 1 

66 IF S = 1 THEN CH = 1 

67 IF S = 2 THEN CH = 4 

7O FOR Y = 1 TO 3 

80 FOR O = O TO 100: NEXT O 


90 TON = (T+4) xk 54 

1606 SOUND CH,TON,6,0,1,1,1 

110 NEXT 

120 S =8 + 1: NEXT: CH= 5: S=1 

130 FOR TO TO 903 NEXT 

140 SOUND 2,0,150,15,2,0,1 

150 FOR P.= 1 710 3 

160 SOUND CH,486,6,15,1,1,2 

= 0 TO 360: NEXT 
CH,300,6,0,1,1,2 

= 0 TO 180: NEXT 
CH,300,6,0,1,1,2 

= 0 TO 180: NEXT 

CH, 486,6,15,1,1,2 

= 0 TO 360: NEXT 
CH,300,6,0,1,1,2 

¿3 THEN FOR T = 0 TO 360: NEXT 
3 THEN FOR T= 0 TO 240: NEXT 


270 NEXT P 
280 GOTO 60 


5.— COMANDO DE CATALOGO 


Este programa de utilidad es de gran ayuda para poder 
analizar la dimensión de un programa, el cual lee la infor- 
mación de la cabecera del fichero del buffer de la Cassette. 


180 ON BREAK GOSUB 260 
190 R$ = CHR$(24)3 MODE 1 
200 LOCATE 3,1: PRINT R$; " PONGA LA CASSETTE EN LA GRABADORA ";¿ R$ 
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LOCATE 2,6:FRINT "PRESIONAR";R$¿" ESC "R$" 
FRINT "CUANDO APAREZCA EL “Ok” " 
FRINT: "PRINT 


" R$j" ESC "¿R$; 


Z 20, 2:PRINT R$;" CATALOGO -—- ANALISIS DE PROGRAMA 
FOR 1 = 47244 TO 47259 
FIL$ + CHR$(PEEFK(1)) 


"R$ 


(47260) 
(47264) * 
(47269) * 
(47266) £ 
PEEK (47262) 
ELOCKS = PL / 2048 
IF BLOCKS <> INT(BLOCKES) 
FLA = LA 

IF EN > 1 THEN FLA = 
= FLA + PL 

LOCATE 5,4: FRINT R$z" NOMBRE PROGAMA 
FRINT * “s FILS 
LOCATE S,6:PRINT Rgz" 
PRINT " "; 

IF TYFE = O THEN PRINT"BASIC ESTANDAR" 

IF OTYFE = 1 THEN PRINT"BASIC PROTEGIDO" 

IF TYPE = 2 THEN PRINT"CODIGO MAQUINA" 

IF TYPE = 22 THEN PRINT"TEXTO ASCII" 

LOCATE 5,8:FRINT R$¿" NUMERO BLOQUE ACTUAL "R$; 
PRINT " "EN 

LOCATE 5,10:PRINT R$;" BLOQUES TOTALES EN FICHERO 
PRINT " “s ELOCKS 

LOCATE 5,12:PRINT R$;" BLOQUE DIRECCION DE CARGA 
PRINT " “gLA 

LOCATE 5,14: PRINT R$;" LONGITUD DE BLOQUE "RS; 
PRINT " "BL¿" BYTES" 

LOCATE 5,16:FRINT R$;" DIRECCION DE CARGA DEL PROGRAMA 
FRINT " "PLA 

LOCATE 5,18:PRINT R$;" DIRECCION FINAL DEL PROGRAMA "R$; 
PRINT " “¡PE 

LOCATE S5,20:PRINT R$;" LONGITUD DEL PROGAMA 
PRINT " “sPLi" BYTES" 

PRINT " "¡STRING$(76,95) 

LOCATE 10,23 

FRINT "DESEA ANALIZAR OTRO PROGRAMA"; 
PRINTO" (S/N) "¿R$;"-"3R$;CHR$(8); 
$ = INKEYS: IF K$ = "" THEN 780 
IF K$ = "S" THEN RUN ELSE IF K$ = 
FRINT CHR$(7)53 GOTO 750 


FPEEE (47263) 
PEER (47268) 
PEEK (47265) 


256 + 
256 + 
256 + 


THEN BLOCKS = INT(BLOCES) + 1 


1: GOTO 470 


TIPO DE PROGAMA 


"N" THEN CLS: END 
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APENDICE 3 


Tabla de carácteres ASCII 


DEC OCTAL HEX ASCII DEC OCTAL HEX ASCII 
o 000 00 NULO 64 100 40 D 
1 001 oi SOH 65 101 41 A 
2 002 02 STX 66 102 42 E 
3 003 Oz ETX 67 103 3 e 
4 004 04 EOT 68 104 . 44 D 
3 005 os ENQ 69 105 45 E 
6 006 06 ACHK 70 106 46 F 
vá 007 07 REL 71 107 47 G 
8 010 08 ES 72 110 48 H 
9 011 09 HT 73 111 49 1 
10 012 OA LF 74 112 4A y 
11 013 OR vT 73 113 4E E 
12 014 oc FF 76 114 4C L 
13 015 OD CR ATÁ 115 4D M 
14 016 OE so 78 116 4E N 
15 017 OF DF 79 117 4F o 
16 020 10 DLE 80 120 S0 P 
17 021 11 pci ei 121 si [8] 
18 022 12 DC2 82 122 52 R 
19 023 13 DC3 83 123 3 Ss 
20 024 14 DC4 84 124 54 T 
21 15 NAF: es 125 595 u 
22 16 SYN 86 126 56 Y 
25 17 ETE 87 127 57 W 
24 18 CAN 88 130 538 Xx 
23 19 EM 89 131 59 Y 
26 1A SUB 90 132 SA z 
27 18 ESC 91 133 a) =] 14 
28 1C FS 92 134 SC N 
29 1D GS 93 135 5D J] 
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azó 
037 
040 
041 
042 
043 
044 
045 
046 
047 
0s0 
osi 
as2 
0s73 
054 
0s5 
056 
057 
060 
Q6l 
062 
063 
064 
065 
066 
067 
070 
071 
072 
073 
074 
075 
076 
077 


Ae DON DOM AADAOS 


94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 


126 


136 
137 
140 
141 

142 
143 
144 
145 
146 
147 
150 
151 

152 
153 
154 
155 
156 
157 
160 
161 

162 
163 
1654 
165 
166 
167 
170 
171 
172 
173 
174 
175 
176 
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